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■mSEfiDER  MICROCOMPUTER  ANTENNR  CONTROLLER 

1.0  Introduction 


Th*  THREADER  ontonno  control  lor  is  a  pro^ronnablo  instrumont 
dosignod  to  control  tho  Sclonttfic  Atlanto(SA)  tor  too  3000  podostol  and 
driuo  oloctronics.  Originally  concoivod  as  a  roplacomont  for  tho  popor 
tapo  input  ouoilablo  with  tho  sorlos  3000  systom.  tho  ontonno 
control lor*s  capobllitios  go  for  boyond  thoso  of  tho  popor  topo  systom. 
Tho  controllor  porformt  functions  in  rosponso  to  a  sot  of  commands  uhlch 
aro  upward  compatiblo  with  thoso  of  tho  old  popor  tapo  systom. 


Tho  sal iont  footuros  of  tho  ontonno  controllor  aro: 

I)  Control  by  an  8080  microprocossor . 

II)  Local  momory  avxiilablo. 

iii)  Upward  compatibility  with  tho  original 

papor  tapo  systom. 

iu)  Communication  with  o  computor/'torminol 

uia  a  sorlal  RS232  lino. 

u)  An  oxtonsiblo  command  sot  composod  of  ASCII 

charactors. 


Tho  controllor  will  rospond  proporly  to  a  papor  tapo  road  through  a 
roodor  with  an  RS232  Intorfaco.  but  tho  command  sot  is  a  suporsot  of  tho 
popor  topo  systom  commands  allowing  romoto  oporat ion  and  systom 
monitoring.  As  tho  controllor  contains  momory.  it  is  posslblo  to  log 
information  about  tho  ontonno  podostol  or  to  transfor  tho  information 
diroctly  ovor  tho  soriol  intorfaco  to  tho  consolo.  In  tho  caso  of  tho 
THREADER  systom  tho  consolo  is  tho  Koyboard  CRT  display  of  tho  PDPIl 
systom.  Tho  antonna  controllor  has  addod  control  to  facilitato 
communication  botwoon  tho  PDPIl  and  8080  computors. 


NtenuMTipt  lubmiltmi  Jun*  29,  1979. 
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2.B  SijslMi  Harduar*  Configuration 


Tho  THREADER  ontonna  control  systomtFig.  1)  consists  of  tho 
following  squipmont: 

1)  6T44  system  including  a  PDF 11/40. 

ii)  SBC  bosed  microcomputer. 

iii)  Time  code  reader(TCR). 

Iw)  Antenna  pedestal  and  drive  electronics. 

The  PDPll  provides  the  graphics  display  and  console  for  the  operator, 
logs  system  messages,  generates  pointing  data  from  ephemeris  bulletins, 
and  provides  a  data  base  fcr  tracKed  vehicles.  The  PDPll  also  controls 
the  microprocessor  antenna  controller  via  commonds  across  an  RS232 
serial  channel. 


FIGURE  1.  THREADER  Antenna  Control ler (with  PDPll  shown) 


The  microprocessor  antenna  controller  consists  of  an  B080 
microprocessor,  memory  and  interfaces  to  the  PDPll.  anienno  pedestal 
drive  electronics  and  time  code  reader.  The  controller  is  implemented 
in  software  on  a  microcomputer  composed  of  SBC-type  modules.  SBC 
modules  are  standard  boards  supplied  by  the  Intel  Corp.  and  others  to 
perform  computer  system  functions  .  eg.  memory.  I/O.  CPU.  etc.  All  SBC 
modules  are  5.75x12  inch  printed  circuit  boards  which  communicate  with  a 
standard  bus.  the  Multibus,  as  defined  by  the  Intel  Corporation.  These 
modules  are  effectively  an  industry  standard  for  microcomputer  systems. 
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A  uid*  'jorivitj  of  modulos  oxisis.  iian«j  of  uhich  or*  socond  sourcod.  Th* 
conf l9ural ion  of  SBC  modulos  usod  for  Ih*  ontonno  controllor  is  qiuwn  in 
Tobls  1. 


TABLE  1.  SBC  Hodulos  in  Antonna  Control  lor 


Contponont 


Doscript ion 


U  Systom  90/20 

2.  SBC  80/20 

3.  SBC  106 

4.  3LC  016 

5.  SBC  519 


SBC  B0/2B  Microcomputor. 
bocKplano.  chassis,  pouor 
supply. 

Port  of  Systom  80/20.  8080 

microprocossor .  2  poroliol 
I/^O  ports.  RS232  port.  8- 
lovol  priority  intorrupt. 
systom  monitor,  reoltimo 
clocks. 

3K  bytos  RAM.  2  poroliol  l.T) 
ports.  RS232  port. 

16K  bytos  RAM. 

3  poroliol  I/O  ports. 
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3.0  Int«rfac»s 

Th»  antsnna  conlroHsr  in(9rfaces  to  ih*  DATUM  ?2  08  t  ln»  cod® 
rQodor  and  to  contponents  of  th®  SA3O00  p0d®s(al  olsctronics.  Th®  PDPlt 
is  I inK®a  to  lh»  antjnna  controll®r  via  an  RS232  s®rial  int®rfac®  port 
on  th®  S8C  30/'20  modul®. 


Th®  function  of  th®  ant®nna  controll®r  is  to  r®spond  to  convnonas 
from  th®  °DP11.  transmitting  command  information  on  to  th®  Sci®ntific 
Atlanta  sgsism  or  supplying  information  from  th®  3A  systom  or  th®  DAPJM 
t im®  cod®  r®ad®r.  As  th®  ant®nno  control  1  or  contains  momory,  command  or 
roguost  information  m  ay  0®  storod  locally  as  nooaod. 

3.1  SA3O00  Podestal  Intorfacos 


Th®  ontonno  control  lor  intorfacos  uith  two  comoon®nts  of  th®  SA30O0 
systom:  tho  SA18J8  Digital  Comporotor  and  tho  SA1943  Synchro  to  Digitol 
Convortor.  Azimuth  and  olsvation  commands  outout  from  the  antenna 
controller  go  to  th®  SA1348  Digital  Comoarator.  7>e  5A13A8  compares  the 
digital  position  command  from  th®  antenna  controller  with  tho  current 
position  of  th®  podestal  output  from  the  SA1843  Synchro  to  Digital 
convertor.  Th®  result  of  th®  comparison  produces  an  onolog  signal  uhicn 
drives  tho  3000  pedestal  to  the  position  commanded  Py  the  controller. 
Th®  antenna  controller  has  a  command  outout  ona  oositi'On  input  port  for 
both  azimuth  and  elevation.  The  oz  imuth- el  evot  ion  cades  from  th® 
3A1943  are  topped  and  connected  to  controller  input  ports  to  provide 
position  infornrwt  ion.  Both  azimuth  interfaces  reside  on  tho  SBC  513 
module:  doth  elevation  ports  reside  on  the  SBC  108  mcaule. 

3.2  ■'’im®  Cod®  Reader  Interface 


Two  porallel  interfaces  were  used  to  interface  tho  Datum  9200  Ti.m® 
Cod®  Reader  to  th®  microprocessor.  Both  interfaces  are  on  th®  SBC90- 20 
microcomputer  board.  Th®  TCR  can  read  BL'LLSETE  or  IRIG-9  cod®:  however, 
th®  system  reads  IRIG-3  as  date  is  supplied  m  this  code. 

On®  parallel  interface,  located  on  the  SSC90  20  microcomputer 
joard.  orovides  hours  through  seconds  as  well  as  a  lOPops  puls®  troin. 
Th®  puls®  train  is  used  by  th®  SBCS9''20  n  arduare  to  generate  the  .1  sec. 
t icK  used  03  the  system  event  clocx. 


Another  input  interface  on  th®  SBC9O'20  is  used  to  r®ad  th®  Jul ian 
dot®  from  th®  TCR.  The  antenno  controller  may  thus  ~oaa  vobsoluto  time, 
days  through  seconds,  from  tn®  TS. 
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Th@  PDPll  may  rsquest  Um®  from  th®  ant®nna  control 1®p.  Th® 
roquosl  is  honored  on  th®  next  second  boundary;  th®  time  sent  is 
accurate  to  within  the  time  needed  to  transmit  the  PSCII  time  string 
ouor  the  channel (about  60  msec,  at  1200  bd.). 

3.3  Serial  Interface 


Communication  with  the  antenna  controller  is  via  a  serial  R5232 
channel  which  may  be  operated  at  any  baud  rate  from  110  to  9600.  and  is 
nominally  run  at  1200  baud.  The  serial  line  goes  from  a  DLllE  on  the 
PDPll  Unibus  to  an  9251  USPRT  on  the  SBC  S0/^0  microcomputer  board. 
Once  a  handshoKe  has  been  established  between  the  PDPll  and  the  SBC80/^0 
port,  control  linos  are  not  altered.  Channel  control  is  acconpl ishod 
with  the  use  of  PSCII  control  choroctors.  Pll  communication  over  the 
channel  is  done  using  PSCII  characters. 


Ps  all  data  over  the  channel  is  PSCII  encoded,  and  the  channel  is  a 
standard  RS232  channel,  any  device (minicomputer,  terminal,  paper  tape 
reader)  with  an  RS232  interface  and  PSCII  character  set  should  be  able 
to  talK  to  the  antenna  controller. 
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4.0  Data  Structures 


The  antenna  controller  operates  on  data  transmitted  over  the  serial 
channel.  The  data  consists  of  a  subset  of  the  ASCII  character  set 
configured  as  commands,  requests,  records  and  files.  Understanding  the 
data  structures  is  a  prerequisite  to  understanding  controller  operating 
modes,  command  interpretation  and  software. 


The  character  set  used  by  the  antenna  controller  is  the 
following:  A.E. I, J.K.L.M.O.R.T.V.U.Z.O, 1.2,3.4,5,S.7.3.9.  In  addition,- 
certain  punctuat lonC ]  and  control  characters  are  used. 

4. 1  Command  Structure 


Commends  are  formed  from  ASCII  encoded  letters  and  numerals. 
Commands  all  have  the  same  format:  an  ASCII  letter  followed  by  an 
optional  ASCII  numeric  string  of  the  form:  sddd.d,  where  's*  is  '+', 
or  null,  and  'd'  is  a  digit.  The  form  of  the  numeric  string  is 
quite  flexible;  for  example.  A54.0,A+54. ,A54,A+54.0  would  all  be 
translated  by  the  controller  to  the  operation  'point  the  antenna  to  54 
deg .  in  az imuth' . 


There  is  one  exception  to  the  normal  command  format.  The  T-command 
requires  a  S-digit  string  supplying  time  in  hours  through 
seconds (hhmmss) . 

4.1.1  Requests 


A  request  for  information  is  a  special  type  of  command.  The  format 
for  a  request  is  an  ASCII  'L'  followed  by  the  command  letter,  eg.  the 
request  LAC'list  azimuth)  would  return  A054.0  if  the  antenna  were 
pointing  54.  degrees  in  azimuth. 

4.1.2  Command  Suite 


For  each  command,  there  is  a  corresponding  request,  although 
sometimes  the  command  or  request  may  be  a  null  operation.  The  command 
suite  with  brief  description  Is  given  in  Table  2. 
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TRBLE  2.  Rntsnna  Conirollsr  Comnands 


Cornnand 

Rdquvst 

Ddscr ipt ion 

1. 

R 

LR 

sotxiist  ozinuth 

2. 

E 

LE 

sot/l isl  aldudlion 

3. 

I 

LI 

sdt/l ist  Intorpold- 
lion  Iniorvol 

4. 

LJ 

1  ist  Jul ion  dot* 

5. 

K 

abort  autorun. 
roturn  to  immodlot* 
mods. 

6. 

M 

«nt«r  innwdiate  mod* 

7. 

0 

LO 

sot/l ist  tlm*  offsot 

3. 

LR 

S0nd  roport  filo 

9. 

T 

LT 

sot  autorun  start 
t  ime 

1  ist  r*al  t  itno 
to  consol • 

10. 

V 

LV 

s*t<<^l  ist  olouotion 
offsot 

11. 

u 

ontor/'oxit  uoitmod* 

12. 

z 

L2 

s*t/^l  ist  azimuth 
offsot 
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4.2  Records 


One  or  more  comnands  ore  concatenated  to  o  suffix  to  form  a 
record.  The  record  is  the  processing  unit  recognized  bg  the  controller, 
ie.  processing  o  complete  record  is  a  software  tosK.  The  record  format 
is  upward  compatible  with  the  paper  tope  format.  A  is  on  optional 
command  separator  within  a  record.  A  record  containing  no  commands 
serves  os  a  timing  morKer. 

4.3  Files 


Two  Igpes  of  files  ore  transmitted  over  the  serial  channel:  data 
files  and  report  files.  These  files  ore  framed  bg  special  control 
characters  to  alert  the  receiving  computer  that  a  file  is  being 
transmitted. 

A  data  file  Is  a  group  of  records  transmitted  from  the  PDPll  to  the 
antenna  controller.  The  data  file  contains  pointing  commands  generated 
from  the  ephemeris  bulletins;  the  file  mag  contain  other  commands.  The 
data  file  is  stored  in  Ih  e  antenna  controller  data  buffer  to  be  used  as 
the  source  of  command  records  for  an  autorun. 


A  report  file  is  a  group  of  records  contolnlng  informotion  about  an 
autorun  tracK.  The  information  requested  bg  requests  in  the  data  buffer 
is  stored  in  the  antenna  controller  report  buffer  on  a  record  bg  record 
basis.  For  each  data  buffer  record,  there  is  a  corresponding  report 
buffer  record.  The  report  buffer  is  transmitted  bg  the  antenna 
controller  over  the  serial  channel  in  response  to  the  R-request  after  an 
autorun  is  completed.  The  contents  of  the  report  buffer  framed  bg  the 
appropriate  control  character  and  sent  over  the  channel  constitutes  the 
report  file.  Outputting  a  report  file  is  the  lowest  prlorltg  software 
tasK:  however,  once  a  request  for  report  is  honored,  character  output  is 
performed  until  tht  entire  report  buffer  is  emptied,  aprocess  taKing 
10-20  sec.  at  1200  baudCno  request  for  report  is  issued  bg  the  PDPll  in 
the  current  THREADER  sgstem]. 
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5.0  OpspQtinq  Nodes 


There  ore  iuo  basic  modes  of  operation  in  the  antenna  controller: 
normal  or  imnedlate  mode  and  autorun  or  remote  mode. 

5.1  Immediote  Node 


Immediate  mode  is  the  default  mode.  Uhen  the  controller  is  in 
immediote  mode.  it  queues  commands  from  the  PDPll  to  a  circular  input 
buffer.  Processing  commands  from  the  circular  input  buffer  is  a  sgstem 
t.isK.  Ps  soon  os  this  tasK  has  priority,  the  commond  is  processed  and 
the  requested  information,  if  any.  is  queued  to  the  circular  output 
buffer.  Outputting  data  from  the  circular  output  buffer  is  also  a  tosK. 
~he  output  Information  will  be  transmitted  over  the  serial  channel  to 
the  PDPll  once  the  output  tosK  is  activated. 


Immediate  mode  is  always  active:  however  uhen  the  antenna 
controller  is  in  remote  mode,  some  commands  which  would  disturb  the 
retnote  operation  are  forbidden  and  are  tr  eated  as  null  commands. 
Immediate  mode  provides  a  means  to  monitor  the  antenna  controller  state 
at  all  times  from  the  PDPll  console. 

5.2  Autorun  Node 


The  autorun  mode  may  be  entered  by  issuing  the  immediate  mode 
T-commond.  Autorun  begins  after  the  start  time  supplied  in  the  connwnd. 
Once  initiated,  the  controller  begins  reading  commands  from  the  data 
file  stored  in  the  local  memory  data  buffer.  The  data  file  contains 
pointing  and  other  commands  downloaded  from  the  PDPll  to  the 
microcomputer  prior  to  the  commencement  of  remote  mode.  Thus,  the 
controller,  once  primed,  can  trocK  and  log  information  on  a  track 
without  further  intervention  from  the  PDPll,  unless  Intervention  is 
required. 


Uhen  remote  mode  is  initiated,  a  countdown  begins  to  the  start 
time.  The  antenna  is  prepositioned  by  performing  the  commands  in  the 
first  record  in  the  dota  buffer.  Once  the  run  begins,  command  records 
are  read  at  intervals  specified  by  the  1-command  which  gives  the 
interval  between  pointing  records  to  the  nearest  .1  second.  A  command 
from  the  PDPll  sets  the  Interval.  Typical  record  spacing  is  10.20  or  -O 
seconds.  As  tne  available  memory  in  the  microcomputer  limits  the 
fineness  of  pointing  record  spacing,  the  controller  interpolates  azimuth 
and  elevation  between  pointing  records. 


The  progress  of  an  autorun  track  may  be  examined  by  immediate  mode 


7WREPDER  MICROCOtIPUTER  PNTENNP  CONTROLLER 


requests  from  ih«  consol*  or  rsqussts  storod  in  ths  data  buffsr.  The 
rssponsss  io  rsqussts  storsd  in  ths  data  buffsr  ors  slorsd  in  ths  rsport 
buffsr.  For  soch  data  buffsr  rscord,  dsmorcotsd  by  thsrs  is  o 
corrssponding  rsport  buffsr  rscord.  dsmorcotsd  in  1 iKs  monnsr.  Pt  ths 
snd  of  outorun.  ths  rsport  fils  may  b*  ssnt  to  ths  PDPll.  Ths  rsport 
option  is  not  utilizsd  by  ths  PDP  11  in  ths  currsnt  THREPDER  systsm. 


Uhsn  outorun  begins,  a  '♦P'  is  ssnt  to  inform  the  PDPll  that  the 
micrccomputsr  is  in  outorun  mods;  when  autorun  snds.  o  ’ *Z'  is  ssnt  to 
inform  the  PDPll  that  ths  microcomputer  has  returned  to  immsdials  mods 
opera t ion. 
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6.0  Rnivnna  Controller  Operation 
6.1  Interconipuler  Comnunlcat  ion 


Several  ASCII  control  chorocters  ore  used  in  intercomputer 
communicot ion  betueen  the  PDPll  and  (he  SBC8O/20  processor.  These  are 
generailk^  intercepted  immediately  by  the  interrupt  software  in  both 
computers  and  cause  subsequent  data  over  the  channel  to  be  interpreted 
in  a  different  manner.  Control  characters  are  indicated  by  a  prefix 
eg.  is  a  controi-A. 


All  characters  read  by  the  antenna  controller  from  the  channel  are 
pot  into  a  256-by(e  circular  input  buffer.  If  the  controller  ijere 
heavily  loaded  with  processing  tosKs.  it  is  possible  the  buffer  might 
overflow.  A  '-HJ*  is  sent  over  the  channel  to  notify  the  PDPll  of 
imminent  buffer  overflow.  Uhen  the  microcomputer  empties  the  buffer  by 
processing  command  records  so  that  overflow  is  no  longer  a  danger,  the 
FDPl 1  is  sent  a  ' ^S' . 


Data  files,  ie.  those  files  containing  many  records  to  be  stored 
in  the  antenna  controller  memory  are  framed  by  ’♦0'  and  '-►D*  so  that  a 

data  file  looKs  1  iKe  . (records) ...  ^D' .  Data  files  provide  the 

commands  to  control  the  antenna  controller  during  a  remote  run.  le. 

when  it  is  moving  the  antenna  along  a  tracK  independently  of  direct 
commands  from  the  PDPll. 


Report  files  are  logs  of  information  about  a  tracK  stored  as  a 
result  of  commands  in  the  data  file.  The  antenna  controller  would  .on 
request,  send  the  report  file  to  the  PDPll  in  the  same  format  os  the 
data  file.  ie.  *  .. (records) .. .^D’C this  feature  not  Implemented  in 
THREADER  system]. 


Uhen  the  antenna  controller  starts  a  remote  run.  it  informs  the 
PDPll  of  the  event  by  sending  Similarly,  when  the  remote  run  is 
completed,  the  PDPll  Is  informed  by  ''►Z*. 


*>><'  is  a  debug  feature  which  returns  control  of  the  microcomputer 
to  the  SBC  nnonitor.  A  summary  of  control  character  usage  is  given  in 
Table  3. 
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TABLE  3. 

ASCII  Control  Charocters 

Character 

Funct ion 

♦A 

Notifg  PDPIl  of  start  of 
outorun. 

♦e 

Signifies  beginning  of 
datof lie. 

♦D 

Signifies  end  of  datafile 

Notify  PDPll  of  limminent 
input  buffer  overflow. 

♦S 

Notify  PDPll  danger  of 
buffer  overflow  is  post. 

♦X 

Exit  and  return  to  SBC 
monitor, (Debug  only!) 

Notify  PDPll  outorun 

complct*. 

S.2  Description  of  Commands 


The  current  command  set  of  the  antenna  controller  ulll  be  described 
!n  this  section.  Not  all  commands  ore  utilized  in  the  current  THREADER 
st^stem.  The  command  structure  is  such  that  it  is  easily  extensible. 
Commands  ma^  be  grouped  os  pedestal  control (A. E) .  outorun 
control < I .K. T)  .  of tsetstO.V.C) .  altering  controller  stateiN.U)  and 
requests  for  special  infortrwt  iontJ.R.Tl . 

The  A-command  and  E-commond  point  the  antenna  in  azimuth  and 
elevation,  respect ivelv^t  the  corresponding  requests  list  the  current 
antenna  position. 


For  an  autorun  to  wort  properlg  the  time  interval  between  pointing 
records  must  be  specified  exactly.  The  l-command  provides  a  means  to 

set  and  list  this  interval.  If  it  is  necessarg  to  end  autorun.  the 

X-command  ulll  return  the  controller  to  the  immediate  mode:  no  numeric 
string  is  required  ulth  this  command.  The  T-commond  loads  the  start 
time  into  the  microcomputer.  As  time  is  specified  as  a  six  digit 
strings  HHMMSS,  the  normal  format  for  the  numeric  string  is  not  useds 
instead  six  digits  orovide  t ime-of -dog.  Setting  time  begins  a  countdoion 
to  the  start  times  the  first  record  of  commands  in  the  data  buffer  is 
read  to  preposition  the  antenna.  After  start  time,  records  are  reod  at 
eoch  interv-ol  mart  and  position  is  interoolated  at  .1  second  interv>als. 
Interpolation  to  .1  sec.  causes  the  antenna  to  trocK  in  a 
quasl-cont inuous  manners  abrupt  starts  and  stops  and  ensuing  vibrations 

are  minimized.  Note  that  the  ‘T*  and  *LT*  commands  are  not 

ccmplementorg  in  the  manner  of.  for  example.  'A*  and  *LA’ . 
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Offsets  mcH^  b«  s«t  In  I  iiw.  azimulN  and  •lawlion.  Aziraulh  offsvt 
Is  ssi  bKj  ths  Z'conmond:  slsvation  o  ffs«t  Is  ssi  bg  th«  S^convnond. 
Azimuth  and  alsvAition  oftsvts  ars  addad  to  position  information  aftor 
intsrpolat ion.  Offssts  or*  zsrovd  at  th*  start  of  an  outorun. 


Tims  offsets.  s«t  bg  th«  O-commond.  oithor  dolagCposit iuv  nunwric 
string)  or  advancstnoqat iv^  nunwric)  th«  rsading  of  records  with  rospoct 
to  rsol  tinw.  If  th«  antsnna  uwr*  tracKing  a  satsllit*  accuratslg.  a 
dslag  would  allow  th«  sotsllit*  to  adv'onc*  bogond  th«  antsnno't  pointing 
position  bg  dsl aging  antonna  movwnwnt  for  a  proscribsd  p*riod:  an 
advancs  would  aasAinc*  th*  antonna's  pointing  position  furthsr  along  th* 
tracK  than  th«  satsllit*.  Th*  r*qu*st  for  tinw  offs*t  gi*lds  z*ro  ^.dlu• 
unl*ss  a  dalag  is  act  ivw.  in  wnich  cas*  th*  r*maining  d*lag  tinw  in 
3*conds  is  r«turn*d. 


Th*  fl-command  r*turns  th*  sgst*m  to  manual  mod*  whil*  l*tting  th* 
autorun  calculations  progrsss  without  ang  output.  Th*  ?1-command  will 
support  futur*  sgst*m  f*atur*s  and  should  not  b*  us*d. 

Th*  U-commond  al  t  srs  th*  mod*  of  pointing  in  t.-.mwdiat*  mod*.  A 
lahcommond  follouwd  bg  a  non-z*ro  nunwnc  act  is^t**  th*  wait  moo*.  In 
th*  wait  mod*,  all  positioning  commands  ar*  h*ld  until  tn*  ant*nna  com** 
within  .5  d*g.  of  th*  position.  This  mod*  thus  pr*v<*nts  th*  ant*nna 
from  slowing  ropidlg  in  r*spons*  to  a  succsssion  of  commands:  instood 
th*  antsnna  is  allowod  to  ssttl*..  b*for*  th*  n*xt  command  is  «x*cut*d. 
~h*  U-command  allows  th*  oporator  to  stop  th*  antonna  discr*t*lg.  Ti-** 
comnwnd  ‘UO.iJ'  oxits  waitmod*. 


Soworal  commands  ar*  availabl*  onlg  to  suoplg  informotion  roquostoo 
bg  th*  PDPll.  Th*  J-r*qu*st  and  T-r*qu*st  roturn  th*  Julian  dot*  and 
raaltinw.  r*sp*ct ivwlg.  Th*  R-r*qu**t  »mpt i*s  th*  r*port  ouff*r  of  th* 
last  outorun  comclotod. 


In  th*  threader  sgstom.  th*  u**r  nouwr  issuos  commands  diroctlu  to 
th*  microprocossor  sgstom.  Th*  us*r  commonds  th*  PDPll  from  th* 
graphics  displag  consol*  and  th*  PDPll  subsoquontlg  gonorotos  and  sonds 
'h*  aopropriat*  coimmond  to  th*  microprocossor.  Th*  PDPll  us*s  th* 

following  subsot  of  th*  total  command  suit*  of  th*  antonra 

controllor:  CA.E. I. J.K.T.V.C]. 
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7.0  Proqrow  Software 


.  controller  is  based  on  a  9060  microcon^uter  sgstem.  As 

su^h.  the  micrcprocessor  software  defines  the  controller  operation.  The 
-  ®  i^itten  in  a  hiqh-lewel  lanquaqe  which  compiles  on  a  PPP10 

PL-^Pef.  103  .  a  structl^ed  longuoae  whici; 
^nerates  8080  code.  During  program  development,  the  hex-obj2ct^f i l^  ^s 
dove^ioaoed  from  the  PDP10  to  the  PDPll  and  stored  on  PDPll  d!sK  Prill 

p^?  microcomputer  memorg  usino  SBC  monitor  commands 

Putur.  versions  or  the  antenna  controller  mog'hav,,  the  cllT^ixlr 
orogrom  in  Read-only  memory (ROM).  voni roller 


The  program  so ft wore  consists  of  sev  en  olocKs: 

Utility  rout ines 
il)  Processor  setuo  routines 

lii)  Data  movement  routines 

iv)  Interpolat ion  routines 

v)  Command  Decode  and  Processing  routines 

vt)  Interrupt  Service  Routines 

vil)  TasK  Priority  Resolver 


^  utility  routines  handle  character  encode,  chorocter  decode  ond 
BCD  arithmetic  operations  for  two  and  three  byte  numbers. 


Processor  setup  routines  initial iie  flags,  semaphores  ond  counters, 
arallel  10  must  be  set  up  for  input  or  output,  number  of  bits,  moae. 
etc.  The  interrupt  jump  table  for  the  priority  interrupt  structure  must 
be  loaded.  Some  initialisation  is  done  by  the  SBC  monitor  prior  to 
entering  the  antenna  controller  program. 


out  ters. 


Data  movement  routines  generally  move  Information  to  _ _ 

serial  channel  or  I/O  ports.  Reports,  antenna  positioning  and  recorc 
output  triggering  ore  procedures  within  this  blocK. 


interpolation  routines  support  the  interpolation  between  autorun 
pointing  records.  Computing  tne  interpolation  deltas  as  eoch  new  record 
is  read,  doing  the  actual  interpolation,  and  handling  anomalous 
conditions  (crossing  360-B  deg.  boundaru,  interpolation  beyond  -’O  deg. 
elevotion.  etc.)  are  processes  performed  by  procedures  in  the 
interpolation  blocK. 
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Conanand  dscod*  and  processing  is  the  largest  blocK  of  code  in  the 
program.  R  heirarchg  of  procedures  is  called  uhich  locates  and 
determines  the  command  within  the  record,  decodes  the  numeric  data 
associated  with  the  command  and  allows  the  command  to  be  executed  on  the 
condition  that  the  mode  of  operation  of  the  antenna  control ler (autorun, 
setup-autorun,  immediate)  will  not  be  disturbed.  Commands  will  be 
interpreted  in  different  manner  or  not  at  all  depending  upon  the 
controller  inode. 

7. 1  Interrupts 


Interrupt  service  routines  exist  for  system  linrtetO.l  second  ticK). 
character  input  and  character  output. 

7.1.1  System  Timing 


The  system  timing  interrupt  service  routine.  TICK,  has  highest 
priority  and  controls  countdown  to  autorun,  reading  of  autorun  pointing 
records  ana  transfer  of  real  time  to  the  PDPll.  Note  that  time 
transferred  is  accurate  to  within  the  time  needed  to  send  the  se'.en 
character  time  string  over  the  serial  channel (about  60  msec.  at  1200 
b  d. ) . 

7.1.2  Character  Input 


The  character  input  service  routine.  PDPSBCISR,  inputs  characters 
into  the  appropriate  buffers  and  hondles  control  characters  :  ♦©.♦D.+Q, 
used  for  data  file  transfer  and  channel  control.  Another  control 
character.  ►X,  is  used  to  exit  to  the  SBC  monitor  for  debug  ourposes. 

If  the  character  is  a  control  signal,  the  appropriate  flags  are  set 
immediately  and  the  character  is  discarded;  otherwise  the  character  is 
stored  in  the  appropriate  buff  er  and  the  buffer  pointer  is  incremented. 
If  the  choracter  is  the  record  demarcator.  the  record  count  is 
incremented.  If  a  character  is  oart  of  a  data  file,  it  is  stored  in  the 
data  buffer  in  the  controller  memory.  Otherwise,  the  character  is 
stored  in  the  circular  input  buffer. 

7.1.3  Character  Output 


Chorocter  output  is  by  software  polling,  but  interrupt  driven 
charocter  output  .may  be  implemented  in  a  future  version  of  the 
controller  program. 


Character  output  is  deoendent  on  the  software  tasK  oriority. 
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Higher  priorllg  lasKs  can  ovvrrid*  characlor  output.  Output  is  bg 
rocord.  A  spocial  rout in«  prinws  th«  output  of  tho  rocord  bg  outputting 
tho  first  choroctor  to  tho  RS232  output  port  buffer.  Subsequently,  the 
output  buffer  is  polled  for  buffer  ready,  provided  there  are  no  higher 
priority  tasKs.  A  neu  character  is  loaded  for  output  eve  ry  time  the 
output  buffer  is  empty  and  the  character  output  routine  has  highest 
priority.  The  output  process  terminotes  when  the  entire  record  has  been 
output . 

7.1.4  Priority  of  Interrupts 


The  priority  of  interrupts  is (highest  to  louest):  SBC  monitor 
interrupts,  system  'ticK*.  and  character  input.  The  character  output 
interrupt  service  routine,  though  present,  is  not  used  in  this  version 
of  the  antenno  controller  software.  Character  output  is  a  polled  tasK 
in  the  c  urrent  software. 

7.2  TasK  Priority  Resolver 


The  microprocessor  antenna  controller  is  tosK  oriented.  Every  time 
the  microprocessor  is  idle,  a  set  of  conditions  is  checKed  to  see  if 
there  ore  any  oending  tasKs.  The  lasKs  are  ordered  on  a  priority  basis. 
If  luo  or  more  tasks  are  pending,  the  highest  priority  task  is  executed. 
Once  the  task  is  completed  the  microprocessor  is  idle  and  the  set  of 
conditions  is  checked  again,  reinitiating  the  process  just  described. 
Tasks  associated  with  autorun  hove  highest  priority.  Next  hignest  is 
informing  the  PDPII  that  there  is  no  longer  danger  of  input  buffer 
overflow  in  the  microcomputer.  Character  output  has  priority  over 
processing  immediate  mode  records,  an  ordering  which  should  make 
overflow  of  the  circular  output  buffer  unlikely.  Sending  the  report 
file  to  the  PDPll  is  the  lowest  priority  task  in  the  system. 


The  implementation  of  the  task  resolver  mokes  it  easy  to  add  new 
tasks  of  lower  or  higher  priority  to  the  software. 

7.3  Program  Statistics 

■’’he  software  program  is  just  under  7400  bytes  of  machine  code  and 
requires  just  under  2100  bytes  of  memory  for  data  storage,  incluaing  the 
report  and  data  buffers  of  2048  bytes  each.  The  orcgram  origin  is 
hex-location  (4003).  The  PL^TI  source  code  listing  is  included  in 
Appendix  E. 
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PPPENDIX  P 


Harduar*  Modifications 
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Appondix  A  Harduarp  Modifications 


A.0  Introduction 

Sovoral  hordunro  modifications  u»ro  modp  in  thp  impl omentat ion  of 
thp  antpnna  controllpr.  Harduarp  modifications  orp  nppdpd  to  choosp 
intprrupt  structurp,  parallPl  port  input-output ,  to  gpnprotp  clocK 
*ticK'  and  snaolp  cprtciin  RS232  control  1  inps. 

A.l  SBC  30^20  Modifications 

Most  modifications  uprp  madp  on  thp  SBC  00^'20  board.  Uhprpupr 
possiblp.  modifications  uprp  local izpd  on  thp  board  uhich  is  tnp 
microcomputpr  in  thp  antpnna  control Ipr.  Schpmot ic  diagrams  for  thp 
S8C90'20  mog  Op  found  in  Rpf.  3.  Apppndix  A. 

A.l.  I  Gpnprat ion  of  thP  0,1  Spcond  PuIsp  'TIcK* 

Thp  gpnprat  ion  of  thp  0.1  spcond  pvpnt  clocK  uios  donp  uiith  hardunrp 
and  so ft warp.  A  100  pps  signal  from  Ihp  timp  codp  rpadpr  uas  input  to 
thp  SBC  80-20  port  E6.  Thp  signal  ojas  thpn  jumpprpd  to  countpr 1 (CTR 1 ) 
of  thp  82S3  triplp  intprval  countpr.  A  softunrp  rout inp  spts  thp  modp 
of  CTRl  to  intprrupt  on  tprminal  count,  thus  sptting  a  flag  uhich  is 
input  to  thp  priority  rosolution  circuitry.  This  flag  rpmoins  SPt  until 
thp  countpr  is  rploadPd  in  IhP  'ticK*  intprrupt  sprvicp  routine. 
Loading  '9’  into  thp  counter  causes  the  intprrupt  flag  to  he  set  eupry 
0.1  second  for  the  lOOpps  input  signal.  The  modifications  from  the 
default  wiring  to  cause  the  100pps  signal  to  he  input  to  CTR  are  shown 
in  Toole  A1  CSee  SBC  80/^0  Hardware  Manual.  Appendix  A). 


TABLE  Al.  Modification  to  Generate  0.1  Second  TicK 
CReferenco  3.  A11-A12] 


Delete 

142-141 

54-55 


A. 1.2  Interrupts 


Add  Comment 

Rpmoue  phi -2  input  from  CTRl 
Rpmoup  100  pps  from  port  E6 
54-141  Add  100  pps  to  CTRl  input 


A  utjriPty  of  potential  interrupt  are  strappable  into  thp  priority 
interrupt  circuitry.  System  interrupts  for  restart  and  SBC  nnonitor 
operation  were  left  as  the  highest  priority  interruots.  Thp  order  of 
priority  following  the  monitor  interruots  was:  *ticK*.  character  input 
and  character  output C not  imolemented].  Table  A2  shows  the  intprrupt 
structurp  tho  cur-ent  antenna  controller.  The  referenced  signals 
may  be  found  in  the  SBC  90'20  hardware  reference  manual .  Note  that 
interrupts  'ivp  through  seven  are  disabled  in  software.  IRO  is  highest 
priority:  iR7is  lowest. 


THREfiDER  mCROCOMPUTER  RNTENNR  CONTROLLER 
Appendix  A  Hardware  Modlf leal  ions 


TABLE  A2.  Inlerrupl  Assignment 
[Reference  3.  A13] 


Interrupt 

Pin 

Signal 

Pin 

Descript  ion 

1R0 

24 

IRl 

25 

1NT2 

45 

Monitor  reset 

1R2 

26 

OIT0 

35 

Monitor  Single  Step 

1R3 

27 

OITl 

34 

0.  1  sec .  TicK 

IR4 

28 

RXR 

41 

Charocler  In  reody 

1R5 

29 

TXE 

32 

Character  out  ready 

IRb 

30 

Spare 

1R7 

39- 

36  GND 

Spare 

A.  1.3  RS232 

Serial 

Interface 

The  serial  RS232  channel  runs  from  the  A251  USARTCUn iwersal 
Sgnchronous-'Asgnchronous  Reciuer  Transmitter)  to  the  DLllE  serial  port 
interfaced  to  the  PDPll  Unibus.  The  POPII  IhlnKs  it  is  a  data  terminal 
and  the  SBC  80/'20  is  wired  as  a  data  set.  As  the  DLllE  recognizes  the 
'Data  Carrier  Delect' (DCD)  signal  but  not  the  ‘Data  Set  Ready' IDSR) 
signal.  the  DSR  output  from  the  USART  was  jumpered  to  the  DCD  line  so 
that  the  PDPll  could  register  a  response  io  the  setting  of  DSR  in  the 
antenna  controller  port.  To  effect  this  connection,  a  line  was 
connected  from  A16-9  to  917-14  on  the  SBC  30/20  boardCRef.  3.  A12]. 

A. 2  Parallel  Port  1/0  Setup 

Porallel  1/0  is  determined  by  a  combination  of  hardware  and 
software.  The  appropriate  software  is  giuen  in  the  procedure  'SETIO'  in 
the  controller  code.  A  parallel  group  is  a  set  of  three  9-hil  ports  on 
a  commun  edge  connector  having  common  control.  Each  group  requires  four 
10  addresses;  one  for  control,  one  for  each  port.  LooKlng  at  the 
populated  side  of  an  SBC  board,  group  I  is  on  the  left.  Ports  are  also 
local'ible  by  the  last  hex  digit  in  the  port  address  embossed  on  the 
particular  SBC  board.  Ports  not  set  up  in  software  default  to  24  oil 
input  ports. 

Interfoce  to  the  lime  code  reader  is  handled  on  the  SBC  90^'20 
board.  The  SBC  30«’20  contains  two  parallel  I/O  groupsCRef.  3.  All]. 
Group  I  reciewes  t ime(hhmmss)  from  the  lime  code  reader:  group  2 
receives  Jul Ian  date. 

The  SBC  100  board  contains  two  parallel  1/0  groupsCRef.  4. 
All-Alc].  All  azimuth  information  is  handled  via  ports  on  this  board. 
Group  I  is  the  azimuth  input  port  from  the  SA1343  Synchro  to  Digital 
convertor.  Group  2  is  the  azimuth  comncind  output  to  the  3A1049. 

The  SBC  519  board  contains  three  parallel  1/0  groups  CRef.  5.  A3]. 
All  elevation  information  is  handled  via  ports  on  this  board.  Group  1 
IS  the  elevation  input  trom  the  391943.  Group  2  is  the  elevation  out out 
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lo  the  SAI940.  Group  3  comprises  three  spore  porallel  ports. 


Toble  A3  provides  o  summary  of  parallel  port  I/O.  Input  ports  are 
Of  tiJO  types*  those  terminated  by  0226  invert iny  transceivers  ond  those 
terminated  in  3BC9P1  non- invert iny  pu 1 1  up /pu 1 1  down  resistor  networKs. 
Software  corrects  for  the  inversion  at  input  ports  terminated  by  A226 
transceiver  chips.  Output  ports  use  0226  transceiver  chips  and  TdOO 
iNAND  yates  as  drivers. 


TABLE  A3.  Parallel  Port  Input-Output 


Locat ion 

10  Adr. 

Mode 

Pr  iver 

Funct ion 

'3BC00-2O  Gp.  1 

EA 

1 

0226 

seconds  in 

E'i 

I 

SBCA01 

minutes  in 

E6 

1 

SBC901 

hours  in 

E? 

control 

SBC90/20  Gp.  2 

E8 

1 

0226 

dote-lou 

EA 

1 

3BCA0 1 

dote-h lah 

EA 

I 

SBC901 

E8 

control 

SBC  100  Gp.  1 

C4 

1 

0226 

Asim.  in-lcw 

C5 

1 

SBCAOl 

Attm,  \n-htah 

C6 

1 

SBC901 

cr 

control 

SBC  100  Gp.  2 

C0 

0 

0226 

Aitm.  out -low 

cs 

0 

,*400 

Ajim.  ,vut-hioih 

CA 

0 

2400 

CB 

control 

SBC510  Gp.  1 

00 

1 

0226 

Elev.  in-low 

01 

I 

3BCA0 1 

Elev’.  in-hidh 

02 

I 

3BCA01 

03 

control 

sees  19  Gp.  2 

04 

0 

0226 

Elev'.  out -low 

05 

0 

,‘400 

Elev.  out-hioh 

06 

0 

or 

control 

A. 3  Microcomputer  Memory  Conf iyurat inn 

The  total  memory  in  the  THREAPER  microcomputer  consisted  of  0K  ROM 
and  2*Mv  PAM.  Tlie  nnemory  map  of  the  system  is  described  in  table  Ad. 
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TABLE  A4.  M#mory  Map  for  Antsnna  Control  I ®r 


Locat ion 

Addross  Rang* 

Mem.  Type 

Comment 

SBcae/ze 

0-7ffH 

ROM 

SBC8O^0  Mon  1  tor 
program. 

800H-f f fH. 

ROM 

Unused. 

3800H-3f ffH 

RAM 

Monitor  tables. 
Programs  to  load 
interrupt  jump  table, 
interpolate  to 
.01  deg. (at  3800H) . 

SBC10G 

(disabled) 

RAM 

Unused . 

(disabled) 

ROM 

Unused. 

BLC016 

4000H-rf f fH 

RAM 

THREADER  pgm.-4003H, 
program  data-5df5H. 
memory  boundary-7 lO0h 
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B.0  BacKponel  Cabling  for  Rz/El  Ports 

It  uos  desired  to  Keep  the  external  cabling  wirel ist  simple  so  that 
external  cables  could  be  fabricated  using  mass  terminated,  point  to 
point,  technologg.  To  effect  this  simple  interconnect,  the  cabling 
betueen  the  controller  bacKpanel  and  the  PC  card  edges  on  the  SBC 
modules  was  uired  according  to  the  uirel ist  in  Table  B1  for  all  azimuth 
and  eleuation  ports. 

In  connecting  the  bacKpanel  to  the  SBC  module,  the  euen  pins  on  the 
3415  PC  edge  connector  are  aluags  on  top.  The  location  of  position  and 
time  ports  is  discussed  in  Appendix  R.  R  glossary  of  signal  names  for 
the  azimuth.'e!euat ion  ports  mag  be  found  in  the  SR1848  Digital 
Comparator  manual C Ref.  8.  pp.  2-4  to  2-6]. 

TABLE  Bl.  Uirel ist  for  Rzimuth/Elevat ion  BocKpanel  to  SBC  Cards 


Signal 

PC  Connector  Pin 

BacKpanel  Connector  Pin 

0.01 

23 

1 

0.02 

21 

£ 

0.04 

19 

26 

0.08 

17 

27 

0.1 

47 

3 

0.2 

45 

4 

0.4 

43 

28 

0.8 

41 

29 

1.0 

39 

5 

2.0 

37 

6 

4.0 

35 

30 

8.0 

33 

31 

10.0 

15 

7 

20.0 

13 

8 

40.0 

11 

32 

80.0 

9 

33 

100.0 

7 

9 

200.0 

5 

10 

400.0 

3 

34 

SIGN 

1 

17 

GROUND 

50 

50 

RATE 

25 

IS 

CU 

27 

20 

ecu 

29 

21 

UPDATE 

31 

23 

24 
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C.0  Tim*  Cod*  Reader  Mod i f icat lane 

The  DATUM  9200  time  cod*  r*ad*r(TCR)  will  read  BULLSEYE  and  lRIG-8 
time  codes.  The  unit  has  been  modified  io  output  Julian  date.  This 
addition  was  implemented  bi^  adding  the  optional  circuitry  for  dot* 
output  found  in  the  9200  manual.  Circuit  diagrams  for  the  data  option 
ore  enclosed  in  doshed  lines  in  the  TCR  schematics.  Dot*,  as  well  as 
hours  through  seconds,  is  available  for  IRIG-B  time  code:  the  BULLSEVE 
provides  onl(j  hours  through  seconds. 

A  new  50-ptn  connector  designated  J4  was  added  to  the  time  cod* 
reader.  Hours  through  seconds  and  100  pps.  signal  were  brought  out 
through  this  connector.  The  connector  tgp*  is  3M-3489.  The  100  pps. 
slgnol  was  wired  from  location  L2“0  to  connnector  J4-41tRef.  1. 
VII-163. 


Alt  edifications  for  date  output  eg  be  found  in  the  9200  enual . 
A  wirel ist  for  signal  output  on  J4  and  J5(the  standard  connectorl  are 
given  in  Table  Cl.  Signal  naes  eg  be  found  in  Ref.l.  IV- 1 . 


TABLE  Cl.  Tie  Cod*  Reader  Connector  Pinouts 


Signal 

J4 

Seel 

49 

S*c2 

48 

Sec4 

42 

SecB 

46 

Sec  10 

45 

S*c20 

44 

Sec  40 

43 

SecSO 

42 

Mini 

33 

Min2 

32 

Min4 

31 

Mina 

30 

MinlO 

29 

Mi  n20 

28 

Mln40 

27 

MinBO 

26 

HrI 

37 

Hr2 

36 

Hr  4 

35 

Hr8 

34 

Hr  10 

33 

Hr  20 

39 

Hr  40 

40 

too  ops 

41 

Gnd 

24, 

nout  J5  Pinout 

1 

2 

3 

4 

5 

6 


a 

g 
10 
1 1 
12 

13 

14 
♦ 

15 
lb 

ir 

IS 

19 

20 
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The  cable  from  connector  J4  to  the  antenna  controller  uos  mass 
terminated  with  3M  3«»88  and  3415  connectors*  therefore  the  wirina  was 
point-to-point . 


The  cable  from  J5  to  the  antenna  controller  is  not  point-to-point. 
Connector  J5  mates  with  cable  connector  P5,  o  36-pin  Amphenol  Sr3036(!l 
connector.  The  wirel ist  for  coble  connector  P5  is  giwn  in  Toble  Ci. 
The  coble  connector  on  the  antenna  controller  side  is  a  Scotchflev 
3M-3480. 


TABLE  C2.  Dote  Coble  tJirel  \st 


Signal 

P5 

3M-3488 

Comment 

01 

21 

31 

Oogs 

02 

32 

04 

23 

33 

08 

24 

34 

Toll 

25 

43 

Ten  dags 

Td2 

2b 

44 

Td4 

Wt 

45 

Td8 

28 

4C 

Hdl 

2S 

4r 

Hundred  i 

Hd2 

30 

48 

Hd4 

31 

4S 

Hd8 

32 

50 

;jnd 

35 

25 

Ground 

The  cobUnq  internal  to  the  antenna  controller,  from  the  bocKponel 
io  the  SBC  SO' 20  PC  cord  edges  was  mass  termtnoted.  point  to  point. 
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D.0  Antenna  Controller  Flougrom-Introdoct ion 

The  f louqramCRef .  93  provides  an  overview  of  program  operation 

that  is  easily  translated  into  the  actual  PL/M  code.  This  ease  of 
translation,  along  with  the  clarity  of  structured  statements,  maKes 
the  flowgram  an  attractis.>e  alternative  to  flow  charts. 

D . 3 . 1  F 1 owgram  Language 

The  syntax  of  the  flowgram  is  typical  of  that  associated  with 
structured  languages  in  general.  The  flowgram  describes  oporot ions 
on  or  with  program  entities.  Program  entities  incluae  variables, 
arrays,  flags,  semaphores,  and  procedures.  An  entity  is  either  an 
English  wordCeg.  report)  or  a  concotonoled  word  with  concatenation 
symbol  'S'teg.  performScommana) .  Concatenot ion  servos  to  clarify 
the  purpose  of  an  entity.  All  entities  have  analogs  in  the  actual 
PL/M  program.  Another  type  of  entity  is  a  short  sentences 
describing  an  operation  which  represents  several  linos  of  codeCeg. 
request  date) . 

The  syntax  of  the  flowgram  is  simple.  A  statement  ends  in  a 
semicolon,  A  blocit  is  a  group  of  statements  enclosed  in 
parentheses;  the  right  parentheses  serv^es  a  blocK  delimiter  as  well 
as  the  end  of  the  last  statement  within  the  blocK. 

A  standard  'If  ...  then  ....  else  ....'  statement  is  used. 
For  example; 

If  immediateSmode  then  position  azimuth 
Else 

tCompute  az i muth$del ta;  Form  next 
azimuth  output); 

translates  as: 

If  the  stote  is  immediate  mode  then  position  the 
antenna  in  azimuth. 

Else  do  these  operations: 

Compute  the  azimuth  delta. 

Form  the  next  azimuth  output. 


Two  'Do*  statements  are  used.  In  each  case.  'Aj'  moy  be  a 
statement  or  o  blocK.  The  first  'Do*  statement  is: 

Do  while  < express  ion >; 

Al; 

A2; 


An; 

End; 
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Uhil®  Ih®  »xpr®sslon  ®valuai®s  *iru®*.  Ih®  opcrai Ions  A1  through  An 
or®  p®rform®cl  in  o  loop.  If  Ih®  ®xpr®ssion  «v>aluot®s  'fols®',  th® 
loop  is  ®xited.  A  variant  of  th®  *Do  Uhil®  <®xpr®ssion>'  loop  is 
th®  'Do  For®v®r'  loop.  in  uhich  th®  stat®m®nts  or®  p®rform®d 
cyclically  for®v®r  b®caus®  th®  itnpl i®d  ®xpr®ssion  is  olunys  'tru®'. 

Th®  s®cond  'Do'  stat®in®nt  is  th®  'Do  Cos®  <®xpr®S5ion>' 
stat®n)®nt : 

Do  Cos®  <®xpr®sston>: 

0;  A0: 

1:  Al: 


n:  An; 

End; 

For  this  stotomont.  th®  ®xpr®ssion  will  ®valuat®  to  o  numb®r  b®tu«®n 
0  ond  n.  If  th®  nuitib®r  is  'j'  th®n  'Aj'  is  »x®cut®d.  and  th®  'Do 
Cos®'  stat®m®nt  is  «xit®d.  Finally,  th®  symbol  'O'  us®d  in 
®xprassions  moons  'not  oquol'. 
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D.l  Antenna  Controller  Flowgram 


Startup: 

SetSInterrupts: 

SetSlO: 


ZeroSf lags: 

tosK  prloritg  resolver  */' 

Do  forever; 

If  report Sr eques ted  and  no  outorun  and  no 
current Sou t put  then  priority«4: 

If  input Sr ecordsSreody  then 

(If  outputSbuf fer  not  near  full  then 
priority's) ; 

If  current Sou t put  and  transmit terSready  then 
priority"’: 

Else 


End 


(If  no  pdpSbsy  and  outputSTecordSready  then 
priority's) : 

If  cotwnSl ineSof f  and  no  buf ferSoverf low  then 
priority's: 

If  interpolot ionSreody  then  priority'9: 

If  nxtSautoSrecordSready  then  priority'll; 

If  autorunSnotSsetup  then  priori ty"12: 

If  autorunSact ive  then  priority'13: 

Do  cose  oriority: 

0:  '  : 

1: 

2:  j 

3 :  : 


4: 

5: 

6: 

7 . 

9: 

9: 

10: 

II: 

End: 


SendSreport : 

Pr ocessS i mmed i a t eSmodeSr ecord : 

Initiate  recordSoutput : 

Output  Snex  t  Schor ac  ter: 

Interpolate  next  az/el: 

If  all  outorunSrecords  processed  then 
(initialize  dotaSbuffer:  output  '*‘Z) 
ProcessSautorun  record: 

SetupSautorun: 


J2 


t-  . 
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y*  S*tup  Proc*dur«8  *✓ 


S«l$inl*rrupis: 

Turn  lnl#rrupi3  S.S.T  off; 
Load  iniorrupiSjumpSlobl*; 
End  SdiSiniorrupts: 


SdiSIO: 

Soi  SBC  108  Group 1>  SBC519  Group  I  for  input: 

S«t  SBC  108  Group2.  SBCSld  Group2  for  3~b^t»  output 
End  SotSIO: 


ZdroSf logs: 

Initial l2»  InputSbuf for; 
Initial  is®  outputSbuf f®r : 
Initial iz®  data&>uff®r: 
Initial iz®  r®por t Jbu f f ®r j 
Initial iz®  to  imm®diat®Smod®: 
Initializ®  tim®: 

End  ZoroSflogs 
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Data  Movement  Procedures 


Send$report: 

Output  when  readq: 

Do  while  reportSbuf fer  not  empty 

(Output  nextScharactor  when  ready); 
Output  ♦D  when  ready; 

End  SenaSreport; 

y*  Interpolation  Procedures  */' 


Interpol  a teSnextSazel : 

Add  deltas  to  old  az/el; 

Add  offsets  to  old  az/el; 

Adjust  0-360  boundary  in  azimuth; 
Clamp  eleu’ation  to  C-2.90]; 

If  autorunSon  outputSozel; 

End  InterpoloteSnextSazel ; 
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/'*  Command  Decode  and  Process  inq 


Pr ocessS i mmed 1 a  t  e$mode$record : 
ProcessSrecord; 

Decrement  input$buffer  record  count: 
Update  output'Sbuf for: 

End  ProcessXimmediateSmode  record: 


Proce3s*autorun*rocord; 

ProcessSrecord: 

Update  reportSbuf fer: 

Update  data$buffer: 

Decrement  autorunSrecord$count ; 
End  ProcessJautorun  record: 


Setupfautorun; 

Processor ecord : 

Cancel  old  reports: 

Initialize  az/el  offsets  and  deltas: 
Processor ocord : 

Update  reportSbuf f er : 

Update  dot o^u f f er : 

Set  state  to  autorunSsetup: 

End  Setup$autorun: 
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Process*record  t 

Zero  dlqltfbot fer: 

Get  nexlSchorocter : 

Do  unite  nextScharocter  <>  "j's 

It  next'Schorocler  'C  numer  ic.  e  tqn.dec  Ifflol  pt.] 
then  loodJcllqltSbut ter; 

El  9e 

(It  nextJchoracler  Is  a  letter  or’*'  then 
set  the  con«nqnd*code> : 

It  o  command  ua*  detected  then 

(It  nexdchdracter  is  o  demarcotor  then 
cndcmd i 

It  obort*reo»je»t  then  exit': 

It  abort  ■Sr  ea»-'e»t  then  extt: 

Get  nextSchoracter ; 

End; 

It  d  command  uas  detected  then 

(Perform  Cndcmd:  It  dbor t Sreqoeet  then  exitt: 
End  ProcessSrecord 


Cndcmd; 

't'Anou*  per torm*commond  on  certain  condition**.' 
Decode  diqi  fSbut ter : 

It  immed tot e'Smode  command  uas  issued  then 
(It  autorunSoct  i'.'*  then 

(It  command  is  request  then  honor  request 
Else 

(It  immedlot e'Smode  on  then  exclude 
set  Sinter'.xil  : 

Else  allow  ottsets.obort . 
set* immed id teSmcdel i : 

E 1  se  per  t  orm*command :  : 

Else  dutorun*command  uws  issued  then 

(It  autorun'Son  exclude  setSimmediateftsode; 
Els*  pertcrm  A.E.1,0  commands): 

End  Cndcmd; 


til 
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Per  f  ormfcomtnand : 

y*  A  brief  description  of  commands  is  given.  Those 
Commands  not  explained  are  self  explanatory  *y 
Do  case  commandSnumber ; 

1:  Azimuth: 

(If  immediateSmode  position  azimuth: 

Else 

(Compute  azimuthSdel ta:  Form  next  azimuth 
output) ) : 

2:  Timeoffset: 

(Advance  or  retard  autorun  tracK); 

3:  Elevation: 

(If  immed iateSmode  position  elevation: 

El  se 

(Compute  elevat ion$del ta:  Form  next 
elevation  output)): 

4:  SetSinterval : 

5:  Abort$autorun: 

(Initialize  dataJbuffor,  reportSbuf fer : 

Turn  off  outorun; 

Clear  pending  autorun*records) ; 

6:  SetSimmediateSmode: 

?:  :  8:  :  /*unused  commands’ll' 

9:  SetSstar t$t ime: 

(Set  trocK  start  time:  activate  autorunSmode) 
a:  : 

b:  SetSua i tSmode: 

(If  numeric*0  then  clear  uaitSmode; 

Else  setSuai tSmode) : 
c:  : 

d:  AutorunSdone: 

(Turn  off  autorun: 

Process  pending  autorun*records) ; 
e:  Set  az imuthtof f set : 

f:  Set  elevat ionSoff set : 

10:  Request  azimuth: 

11:  Request  timeSoffset: 

12:  Request  elevation: 

13:  Request  interval: 

14:  :  15:  :  ^’Hunused  request  s’*/ 

16:  Request  report: 

IT:  : 

IS:  Request  realStime: 

19:  :  la:  :  lb:  :  Ic:  : 

Id:  Request  azimuth$of fset : 
le:  Request  elevat ionSof (set : 

If:  Request  date: 

End: 

End  °er formJcommand: 
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y*  Interrupt  Processing  */ 


TicK: 

If  secondSticK  then 

(If  count dounSon  then 

(If  t imeSnou*startSt Ime  then 

(start  outorun:  end  countdoun)): 

If  timeSrequest  pending  then  tronsferSt ime) : 

If  outorunSoct ive  then 

(If  timeSdelog  <>  0  then  decrement  timeSdelog; 
Else 

(If  intrvlSctr"0  then 
(set  intrvlctr; 

If  dotoAsuffer  not  empty  then  up 
nex  t  SrecordSsem) ; 

Else 

(Decrement  intrvlctr;  up  interpolation 
count) ) ; 

Else 

(If  autorun*on  and  no  countdoun  then  begin 
countdoun) ; 

End  TlcK; 


PdpSsbcSisr ; 

Get  next$character: 

If  nex t*char Oder  is  ♦X  then  exit  to  monitor; 
If  inputSbuffer  overflou  imminent  then 
(output  ■►S;  set  overflou  flag); 
ProcessScharac  ter; 

End  Pdp$sbc<lsr: 


ProcessScharac  t  er : 

If  dataSbuffer  filling  then 

(If  ♦O  then  stop  filling  datoSbuffer; 

If  got  recordSmarKer  then  update  dataSbuffer 
record  count;  Update  dataSbuffer); 

Else  inputSbuffer  being  filled 

(If  then  (enter  dataSbuffer  fill  mode;  exit); 
If  record  iTwrKer  then  updote  inputSbuffer  record 
count:  Update  inputSbuffer): 

End  ProcessScharac ter 
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/% 

/* 

/» 

/T* 

/* 

/* 

/* 

/* 

/* 

/* 


lotD<oiBlolnlcinlolnlnininlceiloln>*xniiiiii«xninininii»<iniie«iiiiinii*iininini^ 

l»»iWt°«*i»X(Xao>n|(X(Xn<n<n<n>rtninio<n<wo<n<ow>(OTn<Mn<n>n»^^ 


THREADER  ANTENNA  CONTROLLER 


VERSION;  1.0 

DATE:  7  AUGUST  1978 

AUTHOR:  L.  E.  RUSSO 

NAVAL  RESEARCH  LAB 
CODE  7574 

UASHINGTCN.  D.  C.  20375 


/■* 

/**i«owwowi<xc*^^  GLOBAL  VARIABLES  «»»xomoimowowi(**>^^ 

/«  ^ 
DECLARE  DCL  LITERALLY  'DECLARE'; 

DCL  LIT  LITERALLY  'LITERALLY*; 

/■*<  CIRCULAR  SUFFERS  AND  CONTROL  «/ 

DCL  (OUTNDPTR. INNDPTR)  BYTE; 

DCL  (OUTSTPTR.INSTPTR.OUTSEM. INSEM.OUTFF.INFF)  BYTE; 

DCL  (MMIN.MTOUT)  (256)  BYTE; 

AUTOMODE  BUFFERS  AND  CONTROL  */ 

DCL  STXFLG  BY"!^; 

DCL  (DATASTPTR.DATANDPTR.RPRTBUFPTR)  ADDRESS; 

DCL  (DATARECTR.RPRTRECTR)  BYTE; 

DCL  DATABUF  (2348)  BYTE; 

DCL  RPRT8UF  (2043)  BYTE; 

/>«  CONTROL  VARIABLES  ♦/ 

DCL  (CMDREG.CMDFLG.RQSTFLG)  9YTE; 

DCL  (CNTDUMFLG.NOTSETUPFLG.AUTOFLG.STFLG.DONEFLG.TURNONFLG)  BYTE; 
DCL  (TMR0FL3.PRI0RITY.TICK3EM.NXTRECSEM)  BYTE; 

DCL  (CTLSFLG.UAITFLG.iMMOUTBUSY.ENDOUTFLG.PDPBSY.RPRTFLG)  BYTE; 

DCL  (OLDSEC.NEUSEC)  BYTE; 

DCL  ( INTRVl..  INTRVLCTR)  ADDRESS; 

/«  START  TIME  SUFFER  AND  TIME  OFFSET*/ 

DCL  TSTART(3)  BYTE; 

DCL  TMDLY  ADDRESS; 

/«  AZ-EL  SAVE  VARIABLES  */ 

DCL  (AZHOLD.AEINC.AZOFF.ELHOLD.ELINC.ELOFF)  (3)  BYTE; 

DCL  (AZOLD.ELOLD)  ADDRESS; 

/*  NUMBER  PROCESSING  VARIABLES  */ 

DCL  (DGTBUFPTR)  BYTE; 

DCL  VAL  ADDRESS; 

DCL  DGTBL'F  (9)  BYTE; 

DCL  BCDASC  DATA  ( '3* . ' I* . *2* . '3* . '4* . '5* . '6* . '7* . *3' 

.■9*.'.*.*“’); 

DCL  PTR  BYTE;  /^TEMPORARY  POINTER*/ 

DCL  HOLD  (10)  BYTE;  /*TSMPORARY  BUFFER  */ 
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DCL  ABRTFLG  BYTE; 

DCL  CHAR  3YTE;  /*GLOSAL  CHARACTER  STORAGE’tu' 

*/ 

/ypifitntotn)t*»ytc^^  GLOBAL  LITERAL  STRINGS 

y*  my 

DCL  OUT  LIT  'OUTPUT*; 

DCL  IN  LIT  'INPUT*; 

DCL  TRUE  LIT  '3FFH'; 

DCL  FALSE  LIT  '3'; 

DCL  MMFLG  LIT  'NOT  AUTOFLG'; 

DCL  CHARSISSDIGIT  LIT  'CHAR<-"9"  AND  CHAR>-"0*"; 

DCL  CTRMD  LIT  '0DFH'; 

DCL  lJAIT$ON*TXRDY  LIT  'DO  'JHILE  ( IN(RS232*CTT.)  AND  l)-0;  END*; 

DCL  RELOADSCTR  LIT  *OUT(0DFH) -70H;  OUT(0DDH)-9;  OUT(0DDH) -0* ; 
ym  SERIAL  10  PORTS  ^ 

DCL  RS232*CTL  LIT  *0EFH*; 

DCL  RS232  LIT  *0EEH*; 
y*  TIME  CODE  PORTS  *y 
DCL  HR  LIT  *0E6H*; 

DCL  MIN  LIT  'aE5H'; 

DCL  SEC  LIT  '0E4H'; 

DCL  DAYLO  LIT  'OESH*; 

DCL  DAYHI  LIT  '0E9H*; 
ym  AZIMUTH  PORTS  *y 
DCL  AZINl  LIT  'aC4H*; 

DCL  AZIN2  LIT  '0C5H'; 

DCL  AZOUTl  LIT  '0C3H*; 

DCL  AZ0UT2  LIT  '0C9H*; 

DCL  AZ0UT3  LIT  '0CAH'; 
ym  ELEVATION  PORTS  *y 
DCL  ELINl  LIT  *aB0H'; 

L'CL  ELIN2  LIT  '0B1H*; 

DCL  ELOUTl  LIT  '0B4H'; 

DCL  EL0UT2  LIT  '935H*: 

DCL  EL0UT3  LIT  '0B6H*; 

SPECIAL  CHARACTERS  my 

DCL  CTLA  LIT  *1';  /wSTART  OF  AUTORUN  SIGNAL  TO  PDPIl 

DCL  CTLQ  LIT  *210*;  /xiTELL  PDPll  TO  RESTART  TRANSMISSION 

DCL  CTLS  LIT  *230*;  /^TELL  PDPll  TO  STOP  TRANSMISSION 

DCL  CTLZ  LIT  'lAH';  /*SIGNAL  PDPll  AUTORUN  COMPLETE 
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/^xi<o>n)nMninr<oKiMix<xt»>ic^  BEGIN  UTILITY  ROUTINES 
/* 

ASCBCD:  PROCEDURE  (CHAR)  BYTE; 

DCL  CHAR  BYTE; 

IF  CHARSISSDIGIT  TNEN  RETURN  0FH  AND  CHAR; 

ELSE  RETURN  -1; 

END  ASCBCD; 

3CDBYTASC :  PROCEDURE ( BUFAD . PTRAD . VAL ) ; 

TAKES  2-BCD  DIGIT  BYTE  AND  RETURNS  TUO  ASCII  DIGITS  AT 
3UF(PTR).BUF(PTR+1)  AND  POINTS  TO  NEXT  BUF  LOCATION 
BCDBYTASC  USES: 

DCL  (BUFAD. PTRAD)  ADDRESS; 

DCL  BUF  BASED  BUFAD  (1)  BYTE; 

DCL  (VAL. TEMP)  BYTE; 

DCL  PTR  BASED  PTRAD  BYTE; 

TEMP-SHR(VAL.4)  ; 

BUF ( PTR )-0CDASC( TEMP); 

PTR-PTR+l; 

TEMP -VAL  AND  3FH; 

BUF (PTR) -BCDASC (TEMP) ; 

PTR-PTR+l; 

END  BCDBYTASC; 

8CDTENTHSASC :  PROCEDURECBUFAD. PTRAD. VAL) ; 

CONVERT  ADDRESS  OF  4  BCD  DIGITS  TO  STRING  OF 
OF  ASCII  CHARACTERS.  HUNDREDS  THROUGH  TENTHS 

BCDTENTHSASC  USES:  LOU.HIGH.3HR 
ny 

DCL  (PTR AD. BUFAD. VAL)  ADDRESS; 

DCL  BUF  BASED  BUFAD  (1)  BYTE; 

DCL  PTR  BASED  PTRAD  ADDRESS; 

(  t  l_  ^  «5YTf-  • 

DCL  IFSSIGN*IS*ON  LIT  ' I -H IGH(VAL) +0;  IF  SIGN*; 

DCL  LCADS8UF  LIT  •BUF(PTR) -BCDASCC I) :  PTR-PTR+l*; 
IFSSIGN*IS*ON  THEN 
DO; 

1-11;  /*u?iTE  MINUS  SIGN^ 

LOADSBUF; 

END; 

I-SHR(HVAL;-HIGH(VAL).4)  AND  a7H; 

LOAD*BUF;  />t<tJRITE  ASCII  HUNDREDS*.^ 

I-HVAL  AND  3FH;  --^ITE  ASCII  TENS*/ 

LOADSBUF; 

I-SHR(LVAL:-LOU(VAL).4)  ;  /*tJRITE  ASCII  ONES*/ 
LOADSBUF; 

1-13;  /h<URITE  decimal  POINT*/ 

LOADSBUF; 

I-  LVAL  AND  OFH; 

LOADSBUF;  ^*URITE  ASCII  TENTHS*/ 

END  BCDTENTHSASC; 
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OUTSSTRNG:  PROCEDURE  (VAL. INTERP.CHAR) ; 

URITES  ASCII  STRING  TO  APPROPRIATE  BUFFER 

OUTSSTRNG  USES:  BCDTENTHSASC 

DCL  (CHAR.  INTERP.  I)  BYTE.* 

DCL  (VAL.PTR)  ADDRESS; 

IF  lNTERP-0  THEN 
DO; 

HOLD(PTR:-0)-CHAR; 

PTR-PTR+l; 

CALL  BCDTENTHSASC(. HOLD.. PTR. VAL); 

DO  1-0  TO  (PTR-1); 

.IMOUT  ( OUTNDPTR )  -HOLD  ( I )  ; 

OUTNDPTR-OUTNDPTR+l ; 

IF  ZERO  THEN  OUTFF-TRUE;  /*CHECK  BUFFER  OVERFLOW?  *y 

END; 

END; 

ELSE 

DO; 

RPRTBUF(RPRTBUFPTR) -CHAR; 

RPRTBUFPTR-RP9TBUFPTR+1 : 

CALL  BCDTENTHSASC ( .RPRTBUF, .RPRTBUFPTR. VAL) ; 

END; 

END  OUTSSTRNG; 

DECODE:  PROCEDURE  (BUFAD.3UFPTR)  ADDRESS; 

ym 

DECODE  PROCESSES  AN  ASCII  STRING  *  DDD.D'  AND  RETURNS 
A  BCD  NUMBER  IN  TENTHS 

DECODE  USES:  ASC3CD 

DCL  (TENTHS. aUFAD.SUFPTR. TEMP)  ADDRESS; 

DCL  BUF  BASED  BUFAD  (1)  BYTE; 

DCL  ENDBUF  BASED  9UFPTR  BYTE; 

DCL  (I.K.CHAR)  BYTE; 

DCL  KSISSPOS  LIT  '  (!<  AND  30H)-0'; 

CHAR-BUF(K;-0) ; 

DO  WHILE  CHARO  AND  !«ENDBUF; 

CHAR-BUF(!<:-<+l); 

END; 

IF  KOEND8UF  THEN  TENTHS-ASC9CD(BUF(K+1) )  ; 

ELSE  TENTHS -0; 

1-0; 

DO  'WHILE  KO0; 

CHAR-SUF(X :-<-!); 

IF  CHARSISSDIGIT  THEN 
DO; 

I-I+4: 

•rEMP-ASC3CD(CHAR): 

TENTHS -SHL( TEMP. I)  +  TENTHS; 

END: 
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ELSE 

30: 

IF  CHAR-*-*  THEN 
DO: 

TENTHS -TENTHS  OR  3000H: 

X-0; 

END: 

END: 

END: 

RETURN  TENTHS: 

END  DECODE: 

aCDBIN;  PROCEDURE  (BCD)  ADDRESS: 

CONVERTS  4  BCD  DIGITS  TO  BINARY. 

SIGNED  MAGNITUDE  IS  ASSUMED:  THEREFORE.  W99.9 
IS  RANGE  OF  BCD 

BCDBIN  USES;  SHL.SHR. LOU. HIGH 

DCL  (BCD.3IN.VAL)  ADDRESS: 

DCL  (TEMP.SGNFLG)  BYTE: 

IF  (HIGH(8CD)  AND  30H)<>0  THEN 
DO: 

SGNFLG-TRUE: 

BCD -BCD  AND  7FFFH: 

END: 

ELSE  SGNFLG -FALSE: 

/*»  CONVERT  MAGNITUDE  TO  BINARY 
VAL -SHR i TEMP : -H I GH (BCD) . 4) : 

BIN-SHL(VAL.3): 

BIN-BIN  +  SHLCv-AL.l):  TIMES  10*^ 

TEMP-TEMP  and  3FH: 

VAL -TEMP  t-B  IN: 

BIN-SHL(VAL.3): 

BIN-SHLi'.'AL.  1)  +9IN:  TIMES  10  AGAIN 

VAL -SHR (TEMP;  -LOU(BCD)  .4)-r9IN: 

3IN-SHL(VAL.3): 

BIN-SHL(VAL. 1)  +  BIN:  /^TIMES  10  AGAIN*/ 

TE!^-TEMP  AND  aFH: 

BIN-TEMP  -h  BIN: 

/*  FORM  -UO'S  COMPLEMENT  BINARY  */ 

IF  SGNFLG  THEN  RETURN  -BIN: 

ELSE  RETURN  BIN: 

END  BCDBIN: 

QUOREM;  PROCEDURE  (REMPTR.TENXXN)  BYTE; 

OUOREM  RETURNS  THE  QUOTIENT  OF  REM^TENXXN  'JHEN 

TENXNN  IS  A  POUER  OF  TEN.  REM  IS  MODIFIED  TO  YIELD 

THE  REMAINDER.  REM  IS  ASSUMED  TO  BE  A  POSITIVE  INTEGER. 

OUCRE'M  USES; 
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DCL  (REMPTR.TENXXN)  ADDRESS.* 

DCL  REM  3ASED  REMPTR  ADDRESS; 

DCL  QUO  BYTE; 

QUO-O; 

DO  UHILE  REM>-TEN>0<N  AND  QUO<10; 

QUO-QUO+1; 

REM-REM-TENXXN; 

END; 

RETURN  QUO; 

END  QUOREM; 

TENSCOMP;  PROCEDURE  (BCD)  ADDRESS; 

TENSCOMP  RRETURNS  THE  TEN'S  COMPLEMENT  OF  A  POSITIVE  MAGNITUDE 
BCD  NUMBER  IN  BCD  FORMAT 

TENSCOMP  USES:  DEC. HIGH.  LOU 
my 

DCL  (8CD.3CDPTR)  ADDRESS; 

DCL  BCDB  BASED  8CDPTR  (2)  BYTE; 

BCDPTR-.BCD; 

9CD-9999H-3CD: 

8CDB(0)  -DEC  (LQU(BCD)+n ; 

BCDB(I)-DEC(HIGH^3CD)  PLUS  3); 
return  BCD; 

END  TENSCOMP: 

BINBCD:  PROCEDURE (BIN)  ADDRESS; 

CONVERT  BINARY  ADDRESS  TO  BCD  COUNTERPART.  IF  8IN>?999. 

THEN  r999H  IS  RETURNED. 

BINBCD  USES:  MOD./ 
my 

DCL  (QUOT.REM.BIN)  ADDRESS: 

DCL  SGNFLG  BYTE; 

IF  <HIGH(BIN)  AND  BOH)  <>  0  THEN 
DO: 

REM— BIN: 

SGNFLG -TRUE; 

END; 

ELSE 

DO: 

REM-eiN; 

SGNFLG-FALSE; 

END; 

QU0T-0U09EM( .REM. 1000) ; 

IF  OUOT>r  THEN 
DO: 

IF  SGNFLG  THEN  RETURN  0F999H; 

ELSE  RETURN  r999H; 

END: 
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QUOT-QLCREMC.REM. 100)  +  SHL(QUOT.4); 

QUOT-QUOREMC.REM. 10)  +  SHL(QUOT.4)j 
QUOT-REM  +  3HL(QU0T,4); 

IF  SGNFLG  THEN  RETURN  QUOT  OR  8000H; 

ELSE  RETURN  OUOT; 

END  BINBCD: 

8CDADD;  PROCEDURE (BCD 1.BCD2)  ADDRESS; 

BCDADD  ADDS  TLO  4-DlGIT  BCD,  SIGN-MAGNITUDE  NUMBERS 
AND  RETURNS  THE  4-DIGIT  SIGN  MAGNITUDE  RESULT. 

BCDADD  USES;  HIGH. LOU. DEC 

DCL  (BCD1.8CD2.SUMPTR)  ADDRESS; 

DCL  3GNSEM  BYTE; 

DCL  SUMS (2)  BYTE; 

DCL  SUM  BASED  SUMPTR  ADDRESS; 

SUMP  T?-. SUMS; 

SGNSEM-0: 

SUM8(0) -HIGH (BCD  1)  +  3; 

IF  SIGN  THEN 
DO; 

3CD1-tenSC0MP(BCD1  AND  ?FFFH) ; 

SGNSEM-SGNSEM+l; 

END: 

SUMB(1)'H1GH(3CD2)  +  3; 

IF  SIGN  THEN 
DO; 

9CD2-TENSC0MP(BCD2  AND  rFFFH); 

SGNSEM-SGNSEM+1; 

END: 

SUMB(3)-DEC(L3U(9CD1)  +  L0U(BCD2)); 
3UM3(1)-DEC(HIGH(3CD1)  PLUS  HIGH(8CD2)); 

IF  SIGN  OR  (SGNSEM-2)  THEN  RETURN  TENSCOMP(SUM)  OR  8000H 
ELSE  RETURN  SUM: 

END  3CDADD; 

TENSC0MP3;  PROCEDURE (BCDPTR) ; 

y-* 

COMPUTES  TENSCOMP  OF  S-BYTE  BCD  STRING 

TENSC0MP3  USES:  DEC 

DCL  BCDPTR  ADDRESS: 

DCL  BCD  3ASED  3CDPTR  (3)  BYTE: 

DCL  3CD2  BY-^; 

3CD(3)-S9H-3CD(9); 

9CD(1)-99H-3CD(1); 

9CD2-99H-3CD(2); 

3CD(0)-DEC(3CD(0)  +  1); 

3CD(1)-DEC(3CD(:)  PLUS  3); 

3CD2-DEC(3CD2  =L’JS  3)  ; 

SCD(2)-BCD2; 

END  TENSC0MP3: 
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BCDADD3:  PROCEDURE  (BCDIPTR.9CD2PTR.BCD3PTR) ; 

3  BYTE  BCD  ADD:  BCD3-BCD1-(^CD2.  10 'S  COtIPLErENT 
INPUT  ASSUMED 

BCDADD3  USES:  DEC 

DCL  (BCD1PTR.BCD2PTR.BCD3PTR)  ADDRESS; 

DCL  9CD1  BASED  BCDIPTR  (3)  BYTE; 

DCL  BCD2  BASED  3CD2PTR  (3)  BYTE; 

DCL  9CD3  BASED  3CD3PTR  (3)  BYTE; 

DCL  CBCD12.3CD22.BCD32)  BYTE; 

3CD12-BCD1(2); 

9CD22-eCD2(2); 

BCD3(0)-DECiBCDI(0)  +  9CD2(a)); 

3CD3(l)-DEC(8CDl(l)  PLUS  BCD2(1)); 

CODE  CORRECTS  COI^ILER  ERROR  ^ 

BCD32-DECi;3CD12  PLUS  8CD22); 

3CD3(2>-eCD32; 

END  8CDADD3; 

OUTSCHAR:  PROCEDURE  (CHAR); 

OUTSCHAR  ENABLES  OUTPUT  OF  A  SINGLE  CHARACTER  UITHOUT 
OVERURITING  THE  OUTPUT  BUFFER. 

THIS  ROUTINE  IS  USED  FOR  SENDING  CONTROL  CHARACTERS 
TO  THE  PDPll. 

OUTSCHAR  USES: 

DCL  CHAR  BYTE; 

LWITSONSTNRDY; 

0UT(RS232)-CHAR; 

END  OUTSCHAR; 

END  UTILITY  ROUTINES  «iwc*»Twwac»D»owowo 
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nty 

/tmom«c»3k*!*ok5(omo(o(«  begin  processor  SET-UP  ROUTINES  *xo>txo<owo«oinicxcxo>owott/ 

*/ 

ZEROSFLGS;  PROCEDURE; 

/# 

INITIALIZE  GLOBAL  VARIABLES 
y*  INITIALIZE  INPUT  BUFFER  *y 

INNDPTR-0;  >1 

INSEri-0; 

INFF-FALSE; 

INSTPTR«0; 

y*  INITIALIZE  OUTPUT  BUFFER  «/ 

OUTNDPTR-0; 

OUTSEM-0;  ^ 

OUTFF -FALSE: 

OUTSTPTR-0; 

INITIALIZE  REPORT  BUFFER  *y 
RPRT9UFPTR-0; 

RPRTFLG-FALSE; 

RPRTRECTR-0; 

y*  INITIALIZE  DATA  BUFFER  '•«/ 

STXFLG-FALSE; 

DATASTPTR-0; 

DATANDPTR-0; 

DATARECTR-a; 

/*  RESET  AUTORUN  CONTROL  */ 

NXTRECSEiT-0; 

AUTOFLG-FALSE; 

CNTDUNFLG-FAL3E; 

STFLG-FALSE; 

INTRVL-I0;  />ttINTRVL  DEFAULTS  TO  1,0  SEC*^ 

TMDLY-a.: 

NOTSETUPFLG-faLSE; 

ABRTFLG-FALSE; 

TIC:<SEM-0; 

/*  TURN  OFF  CHARACTER  OUTPUT 

END0UTFL3-FAL3E; 

nnOUTBUSY-FALSE; 

y*  INITIALIZE  SERIAL  CHANNEL  CONTROL 
PDP9SY-FALSE; 

CTL3FLG-FAL3E; 

/*  RESET  COMMAND  PROCESSING  *y 
RQSTFLG-FALSE; 

TMRQFLG -FALSE; 

IJAITFLG-FALSE;  .  , 

DGTBUFPTR-0;  i 

INITIALIZE  EVENT  CLOCK  CONTROL  ^  ! 

NEUSEC-0; 

OLDSEC-0; 

END  ZER0SFLG3; 
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SET* 10;  PROCEDURE; 

/'KSET  up  CTRl  FOR  TIME  CODE  INTERRUPT  EVERY  .1  SEC*/ 
9EL0AD*CTR; 

/*  SET  UP  PARALLEL  10  FOR  SBCa0/20  */ 

DCL  A21CTL  LIT  'OCTH'; 

DCL  AZ2CTL  LIT  'OCBH'; 

DCL  ELICTL  LIT  'OBSH'; 

DCL  EL2CTL  LIT  '0B?H'; 

0UT(AZ1CTL)-3BH:  /*INPUT  ON  SBC  108  GRP  1  */ 

0UT(AZ2CTL1 -BOH:  /kOUTPUT  ON  S0C108  GRP  2*/ 
OUT(EL1CTL)-90H:  /*INPUT  ON  SBC519  GRP  1  */ 

0UT(EL2CTL) -BOH;  /^OUTPUT  ON  SBC519  GRP  2*/ 

/KSBC30.20  PORTS  DEFAULT  TO  INPUT*/ 

/*SET  AZCUT3.  EL0UT3  PORTS  SO  THAT  UPDATE  IS  DISABLED 
AND  PORTS  HAVE  ZERO  OUTPUT  AFTER  DRIVERS*/ 

0UT(A20UT3) -NOT  0; 

0UT(EL0UT3)-N0T  0; 

END  SETSIO; 

SETJINT;  PROCEDURE; 

SET-UP  INTERRUPT  TABLES  FOR  9259  PRIORITY  INTERRUPT  CHIP 
SET-UP  COMPATIBLE  UITH  SBC  90/- 20  MONITOR.  SEE 
SBC30P29  USERS  GUIDE,?.  19. 


LEVEL  INTERRUPT 

0  PROCESSING/RESTART 

1  RETURN  TO  30/20  MONITOR. 

2  30/20  SINGLE  STEP (TIMER) 

3  .1  SEC.  TICK 

4  PDP  TO  SBC  COMM. 

5  SBC  TO  PDP  COMM. 

5  SPARE 

CODE  IS  NOT  VALID  IN  PLM  BUT  SHOWS  WHAT  WE  WANT  TO  DO; 
DCL  INT*VECT*ST  ADDRESS; 

DCL  INTSVECT  3ASED  INTSVECTSST  (16)  ADDRESS; 
INTSVECTSST-3FE0H;  I  DEFINE  TABLE  START.  ADDRESS 

INTSVECT( 10) -.3BC5PDP*ISR;  INTERRUPT  VECTOR  5 
INTSV6CT(3) -.PDPSSBC5ISR;  INTERRUPT  VECTOR  4 
INT*VECT(S)-.TIC:<;  INTERRUPT  VECTOR  3 

*/ 

DCL  INTSST07SOFF  LIT  'BEOH*; 

DCL  OCWl  LIT  'ODSH*; 

DCL  INTJSETUP  LIT  '3800H'; 

OUT(OCWl ) • INTS5T0r*0FF ; 

GO  TO  INTSSETUP;  /*LINK  TO  ASSEMBLY  LANGUAGE  */ 

ENABLE; 

END  SET*INT; 
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SET*TIM;  PROCEDURE; 

FORMS  SCD  TIME  FROM  ASCII  STRING.  NO 
NON-DIGIT  CHARACTERS  ARE  ALLOUED.  TSTART  ARRAY  UILL 
CONTAIN  BCD  VALUES  FOR  0-23  HRS..  0-59  MINS. 

AND  0-59  SECS.  IF  LESS  THAN  6  DIGITS  ARE  PRESENT. 

ZEROES  ARE  INSERTED  FOR  REMAINING  CHARACTERS. 

SETSTIM  USES;  ASCBCD  */' 

DCL  (TVAL. I.PTR)  BYTE; 

DO  PTR-DGTBUFPTR  to  5; 

DGTBUF(PTR)-0: 

END; 

I  — 1; 

DO  PTR-0  TO  4  BY  2; 

TVAL -SHL (ASCBCD ( DGTBUF (PTR) ) . 4) ; 

TSTART(I:-I+I)«TVAL  +  ASCBCD (DGTBUF (PTR+l) ) ; 

END; 

AUTOFLG-TRUE;  /JETTING  TIME  COMMENCES  AUTO-MODE  OPERATION*^ 
END  SETSTIM: 

END  PROCESSOR  SET  UP  ROUTINES 
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/m 

BEGIN  DATA  MOVEMENT  ROUTINES  ^otoMiiModniniiwtt 

/* 

OUT*REC;  PROCEDURE; 

/* 

TRIGGERS  OUTPUT  OF  1  RECORD. 

METHOD  IS  BASED  ON  STATUS  OF  XMIT.  BUF.  RDY.  AND  CARE 
IS  TAKEN  TO  ENSURE  NO  POSSIBILITY  OF  OVERURITING  A 
CURRENT  OUTPUT 

OUT*REC  USES: 

OUTSREC  IS  CALLED  BY: 

%/ 

DCL  CHAR  BYTE; 

UAIT$ON*TXRDY; 

0UT(RS232) -(CHAR: -MMOUT(OUTSTPTR) ) ; 

IF  CHAR-':’  THEN 
DO; 

OUTSEM-OUTSEM- 1 ; 

ENDOUTFLG-TRUE; 

END; 

OUTSTPTR-OUTSTPTR+1 ; 

IF  ZERO  THEN  OUTFF-FALSE; 

MMOUTBUSY-TRUE; 

END  OUTJREC; 

TIM*T0*8UF:  PROCEDURE CBUFAD.PTRAD) ; 

DCL  (BUFAD.PTRAD)  ADDRESS: 

DCL  aUF  BASED  BUF AD  (1)  BYTE; 

DCL  PTR  BASED  PTRAD  BYTE; 

3UF<PTR)-'T’; 

PTR-PTR+1; 

CALL  SCDBYTASCC BUFAD.PTRAD. IN(HR) > ; 

CALL  3CDBYTASC (BUFAD.PTRAD. IN(MIN)); 

CALL  BCDBYTASCCBUFAD. PTRAD.  NOT  (IN(SEC))); 

END  TIM*TO$8UF; 

OUTPUT*AZIM;  PROCEDURE ( TEMPTR ) ; 

/» 

OUTPUTJAZIM  OUTPUTS  AZIMUTH  VALUE  TO  HUNDREDTHS 
TO  THE  ANTENNA  SYSTEM. 

UPDATE  iMODE  IS  TURNED  ON/OFF  FOR  OUTPUT. 

OUTPUTSAZIM  USES:  SHR.DEC 
♦/ 

DCL  TEMPTR  ADDRESS; 

DCL  TEMP  BASED  TEMPTR  (3)  BYTE: 

DCL  HUND  BYTE; 

DISABLE: 

/'rtJOUND  HUNDREDTHS  AND  SHIFT  TO  LOU  NIBBLE’*/ 
HUND-SHR(DEC(TEMP(3)  +  5). 4); 

0UT<AZ0UT3)  -  NOT  (HUND  OR  BOH);  - OPDATE  MODE  ON*/ 
OUT(AZQUTl)  -  NOT  TEMPd); 

0UT(AZ0UT2)  -  NOT  TEMP(2); 

0UT(AZ0UT3)  -  NOT  HUND:  /'(•UPDATE  MODE  OFF*/ 

ENABLE: 

END  OUTPUT3AZIM; 
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OUTPUT*ELEV!  PROCEDURE ( TEMPTR) ; 

OUTPUT*ELEV  OUTPUTS  ELEVATION  VALUE  TO  HUNDREDTHS 
TO  THE  ANTENNA  SYSTEM. 

UPDATE  MODE  IS  TURNED  ON/1DFF  FOR  OUTPUT. 

OUTPUTfELEV  USES:  SHR.DEC 

DCL  TEMPTR  ADDRESS; 

DCL  TEMP  BASED  TEMPTR  (3)  BYTE; 

DCL  HUND  BYTE; 

DISABLE; 

/♦ROUND  HUNDREDTHS  AND  SHIFT  TO  LOU  NIBBLE*/ 

HUND-SHRC DEC ( TEMP (0)  +5).4); 

0UT(EL0UT3)  •  NOT  (HUND  OR  B0H);  /*UPDATE  MODE  ON*/ 
OUTCELOUTl)  ■  NOT  TEMP(i); 

OUT(ELOUT2)  -  NOT  TEMP(2); 

0UT(EL0UT3)  •  NOT  HUND;  '*UPDATE  MODE  OFF*/ 

ENABLE; 

END  OUTPUTJELEV; 

REPORT;  PROCEDURE; 

/*  SENDS  CONTENTS  OF  REPORT  TO  PDPIl  AS  A 

DATA  FILE.  IE.  FRAMED  BY  CTL3...CTLD.  ONCE  ACTIVATED.  THE 
REPORT  CONTINUES  UNTIL  THE  'JHOLE  BUFFER  IS 
TRANSFERRED.  TRANSFERRING  2048  CHARACTERS  AT  2400  BD. 

UILL  TAKE  ABOUT  10  SEC.  IF  A  NEU  RUN  IS  ACTIVATED 
BEFORE  THE  REPORT  IS  MADE.  THE  REQUEST  FOR  THE 
REPORT  IS  CANCELLED. 

REPORT  USES: 

REPORT  IS  CALLED  BY;  PRIORITY  RESOLVER 

*/ 

DCL  PTR  ADDRESS; 

UAIT*ONSTNRDY: 

OUT(RS232)«02;  /*OUTPUT  CTLB*/ 

PTR-0; 

DO  UHiLE  RPRTRECTR>0; 

CHAR-RPRTBUF(PTR) ; 

PTR-PTR+l; 

IF  CHAR-':'  THEN  RPRTRECTR-RPRTRECTR- I ; 

UAITSON«T<RDY: 

0UT(RS232)-CHAR; 

END: 

UAIT*ON*T<RDY; 

0UT(RS232) -04;  /*OUTPUT  CTLD*/ 

RPRTFLG -FALSE: 

END  REPORT: 
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POSITION:  PROCEDURE (A2EL.AZ0N); 

POSITION  POSITIONS  ANTENNA  TO  AZ/EL  POSITION.  IF 
AZON-1  THEN  POSITION  AZITUTH  ELSE  ELEVATION.  IF  UAITFLG 
THEN  DO  NOT  RETURN  UNTIL  ANTENNA  IS  UITHIN 
.5  DEG.  OF  POSITION 

POSITION  USES:  LOU.HIGH.TENSCONP.BCDADD 

DCL  (AZEL.TEMPTR. TEST. TEMP)  ADDRESS; 

DCL  AZCN  BYTE; 

DCL  TEMPS  BASED  TEMPTR  (2)  BYTE; 

DCL  AZELARY  (3)  BYTE; 

/*ZERO  HUNDREDTHS*/ 

AZELARY (0)'0; 

/♦DEFINE  TENTHS  THRU  HUNDREDS*/ 

AZELARY(l)-LOU(AZEL); 

AZELARY(2)-HIGH(AZEL); 

TEMPTR-. TEMP; 

IF  AZON  THEN  CALL  OUTPUT*AZIM( .AZELARY) ; 

ELSE  CALL  OUTPUT*ELEV( .AZELARY) ; 

IF  UAITFLG  THEN 
DO; 

TEST- 10; 

DO  UHILE  TEST>5; 

IF  AZON  THEN 
DO; 

DISABLE; 

TEMPB<0)-  NOT  IN(AZINl); 

TEMPB(1)-IN(AZIN2)  AND  0BFH; 

ENABLE; 

END; 

ELSE 

DO; 

DISABLE; 

TEMPB(0)-  NOT  INtELINl); 

TEMPB(n-IN(ELIN2)  AND  0BFH; 

ENABLE; 

END; 

TEMP - TENSCOMP ( TEMP ) ; 

TEST-BCDADDCTEMP.AZEL)  AND  TFFFH;  /*  GET  MAGNITUDE 

END; 

END; 

END  POSITION; 
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TMSOFFSET:  PROCEDURE; 

MODIFY  AUTORUN  TO  ADVANCE  OR  RETARD  SATELLITE 
TRACK  UITN  RESPECT  TO  REAL  TIME  EPHEMEROUS  DATA 

TMSOFFSET  USES: 

TMSOFFSET  IS  CALLED  BY:  PRIORITY 

DCL  (NSTPS.NRCDS.BINOFF.TICKDIF) 
aiNOFF-0CDSIN(VAL  AND  7FFFH); 

IF  (HIGHCVAL)  AND  30H)<>0  THEN 
DO; 

NPCDS -0 1 NOFF/ 1 NTRVL ; 

NSTPS-BINOFF  MOD  I NTRVL; 

DISABLE; 

TICKDIF-INTRVLCTR-NSTPS; 

IF  NSTPS>-INTRVLCTR  THEN 
DO; 

INTRVLCTR- INTRVL+TICKD IF ; 

TICKSEM— TICKDIF-1; 

NXTRECSEM-NRCDS+NXTRECSEM+1 ; 

END; 

ELSE 

DO; 

INTRVLCTR-TICKDIF; 

NXTRECSEM-NRCDS+NXTRECSEM; 

TICKSEM-INTRVL-TlCKDIF-1; 

END; 

ENABLE; 

TMDLY-0;  /ADVANCE  GTR  THAN  REAL  TRACK  TIME*/ 

END: 

ELSE  TMDLY-BINOFF;  /*TRUE  TRACK  TIME  DELAY  */ 

END  TMSOFFSET; 

END  DATA  MOVEMENT  ROUTINbS  i6ieMotoMt*^iWt******»**»*/ 


RESOLVER 

ADDRESS; 

/*ADVANCE  TRACK  TIME  */ 
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/n*  *✓ 

/'i<o«cso«i>n)o>(»»su)^^  INTERPOLATION  ROUTINES 
/*  */ 

ADJUST;  PROCEDURE  (HOLDPTR) ; 

/% 

THIS  ROUTINE  ADJUSTS  FOR  359.9  TO  0.0  AND  0.0  TO  359.9 
TRANSITIONS  SO  THAT  THE  OUTPUT  UILL  BE  KEPT  IN  THE 
INTERVAL  C0,359.9]. 

ADJUST  USES:  DEC 
*/ 

DCL  HOLDPTR  ADDRESS; 

DCL  HOLD  BASED  HOLDPTR  (3)  BYTE; 

IF  HOLD(2)>49H  THEN  H0LD(2) -DECCHOLDCZ)  ♦  36H) ; 

ELSE 

DO; 

IF  H0LD(2)>35H  THEN  H0LD(2) -DEC(H0LD(2)  +  64H); 

END; 

END  ADJUST; 

CLAM»;  PROCEDURE  (ELEV)  ADDRESS; 

CLAMP  CLAMPS  THE  ELEVATION  OUTPUT  IN  THE  RANGE 
-2  DEG.  TO  90.  DEG.  ELEV  IS  A  TENSCOMP  NUMBER;  THE 
RETURN  IS  A  BCD  SIGNED-MAGNITUDE  NUMBER 

CLAMP  USES:  TENSCOMP 

DCL  ELEV  ADDRESS: 

IF  ELEV>4999H  THEN 
DO; 

ELEV-TENSCOMP(ELEV); 

IF  ELEV>0020  THEN  ELEV-0020H: 

ELEV-ELEV  OR  S000H: 

END; 

ELSE 

DO: 

IF  ELEV>0900H  THEN  ELEV-0900H; 

END: 

RETURN  ELEV; 

END  CLAMP; 
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PROCEDURE; 

?N?ER?5!AnoT  CONt!n\.e'?^'Se  iscS 

^CSAZEL  USES;  8CDADD3,  ADJUST 

DCL  ELEVPTR  ADDRESS; 

DCL  EL£V  BASED  ELEVPTR  ADDRESS* 

DCL  TEMP  (3)  BYTE; 

CALL  SCDADD3(.A2H0LD. .AZINC  flZHnin^ . 

CALL  SCMCDJ  ( .AJHOLO !  ' 

CALL  AD JUST(. TEMP);  p-'tnh'j. 

IF  AUTSFLG  THEN 
DO; 

"'^"c'^LL  INTERRUPTED  RUN*. 

END; 

CALL  9CDADD3(  .ELHOLD.  .ELINC  PLWni 
.ELHOLD. 

ELtVPTR-.TEMPCl).  -.<cnr;. 

ELEV«CLAMP(ELEV); 

END  i'nC«Sl-°  “'^‘'«E‘-EV<.TSMP>, 
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SETS INC;  PROCEDURE (NEU. CURRENT)  ADDRESS; 

SETS INC  SETS  THE  INCREMENT  FOR  THE  NEU  A2-EL 
COMMAND.  THE  CURRENT  AZ-EL  IS  SUPPLIED  ALONG  UITH 
THE  NEU  AZ-EL  POSITION  DESIRED.  THE  INCREMENT  IS  THE 
( NEU-CURRENT)  I NTRVL . 

SETSINC  USES:  BCDBIN.SINBCD,/ 

ste/" 

DCL  (NEU.CURRENT, INC.DIFF.NEU8IN.CURBIN.P0SDIF)  ADDRESS 
D I FF - ( NEUB I N ; -BCDB I N ( NEU) ) - ( CURB  I N : -BCDB I N ( CURRENT) ) ; 

IF  NEU8IN<900  AND  CURBIN>2700  THEN  DIFF-DIFF  +  3500; 

IF  NEUBIN>2700  AND  CURBIN<900  THEN  DIFF-DIFF  -  3600; 

IF  (HIGH(DIFF)  AND  80H)<>0  THEN  POSDIF— DIFF; 

ELSE  POSDIF-DIFF; 

IF  P0SDIF>327  THEN 

DO;  /*  INCREMENT>32.7  DEG. 

INC- (20*POSD IF) /INTRVL; 

INC-SHR(INC+1. 1);  /GROUND  ING*/' 

INC-10*INC; 

END; 

ELSE 

DC;  /Nc  INCREMENT<-32.7  DEG.  *y 

INC- (200*POSD IF) /INTRVL; 

INC-SHR(INC+l.l); 

END; 

IFCHIGHCDIFF)  AND  B0H)<>0  THEN  INC— INC; 

INC  IS  ACCURATE  TO  .001  DEG.  «/ 

RETURN  BINBCD(INC); 

END  SETSINC; 

SETSAZELSINC ;  PROCEDURE  C INC . AZELPTR) ; 

/* 

FORMS  3-BYTE  10' S  COMPLEMENT  INCREMENT  FOR  AZ  OR  EL 

SETSAZELSINC  USES:  LOU. HIGH 

DCL  (INC. AZELPTR)  ADDRESS; 

DCL  AZEL  BASED  AZELPTR  (3)  BYTE; 

DCL  SGNFLG  BYTE; 

IF  (HIGH(INC)  AND  80H)<>0  THEN 
DO; 

INC-TENSCOMPCINC  AND  7FFFH) ; 

SGNFLG -TRUE; 

END; 

ELSE  SGNFLG -FALSE; 

AZEL(0)-LOU(INC); 

AZEL(I)-HIGH<INC); 

IF  SGNFLG  THEN  AZEL(2)-99H; 

ELSE  AZEL (2) -0; 

END  SETSAZELSINC; 

end  INTERPOLATION  ROUTINES  ’tnMo>xMot(xoic<aowc 
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COMMAND  DECODE  AND  PROCESSING  'Woioioii******!*^^ 

'^'*1 

9RPRM*CMD;  PROCEDURE (CMDCD. INTERP> : 

PERFORMS  ACTUAL  INTERPRETATION  OF  COMMANDS.  31  COMMANDS 
ARE  POSSIBLE:  \6  REQUESTS,  15  COMMANDS 

PRFRMSCMD  USES;  ZERO*FLGS.SET*TIM.OUTSSTRNG 

DCL  (CMDCD. INTERP>  BYTE: 

DCL  iCURRENTPTR. INCPTR.tempa)  ADDRESS; 

DCL  CURRENT  BASED  CURSENTPTR  ADDRESS: 

DCL  INC  BASED  INCPTR  ADDRESS: 

DCL  temp  i3)  BYTE: 

IF  CMDCD'IFH  OR  CMDCD-9FFH  TREN  RETURN; 

CURRENTPTR-.TEMPi 1) : 

TEMP(O) *0: 

DO  CASE  CMDCD: 

DO:  -^ASE  AZIMUTH*' 

DO  CASE  INTERP: 

CALL  P0SIT10N(VAL,  n: 

DO; 

INCPTR-. AZ1NC( n : 

TEMPiP-  LOUiAZOLD); 

TEMPi.’Z''-  HIGHCAZOLD’: 
INC-SET*INCiVAL.CURRENT> : 

CALL  SET'$AZEL»1NC^1NC..AZ1NC); 

CALL  BCDADD3 l . AZ INC . . TEMP . . AZHOLD) : 

CALL  9CDADD3( .AZHOLD. .AZOFF. .TEMP> : 

CALL  ADJUST(.TE''1P>: 

IF  AUTCFLG  THEN  CALL  OUTPUTJAZ IM( .  TEff ) : 
AZOLD-VAL: 

END: 

DO: 

CALL  °CS1T10N(VAL.I): 

AZCLD-VAL: 

END: 

END; 

END: 

CALL  TMSOFFSET;  .•*CASE  TIMECFFSET*," 

DO:  *CASE  ELEVATION 

DO  CASE  INTERP: 

CALL  ’OSITIONtVAL.O) : 

DO; 

INC?'n;-.£L!NC( : 

’EMPvP-  LCIJ(ELOLD): 

TSMP>.Z)-  HIOHCELOLDP 
INC-EE''*INC.VAL.CURRENT'» : 

CALL  SE’SAZEL'SlNCt  INC.  .EL INC) ; 
call  BCDADDoi.ELINC. .temp. .ELHOLD'; 

CALL  3CDADD3  i .  ELHOLD . .  ELOFF . .  TEMP''  : 
CURRENT-CLA.-PvCL'RRENT'i  : 

IF  AUTCFLG  'HEN  CALL  OUTPUT*EL£V( .  "lEMP' : 
ELCLD-val: 
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DO; 

ELOLD-VAL: 

CALL  PCSITION(VAL.a); 

END; 

END; 

END; 

INTRVL-BCDBIN(VAL);  .'xCASE 

DO;  --xiCASE 

ABRTELG-TRUE; 

STFLG«PALSE; 

AUTOFLG-PAL5E; 

DATASTPTR«0; 

DATANDPTR-B; 

DATARECTR-B; 

RPRTBUFPTR-B; 

RPRTRECTR-B; 

NNTRECSEM-B; 

END; 

DO;  .'’•CASE 

IF  VAL  <>0  THEN  AUTOFLG -FALSE; 

ELSE  AUTOFLG -TRUE; 

END; 


SET  INTERVAL 
ABORT  RUN*/ 


SET  MANUAL  MODE*/ 


CALL  SETSTIM; 

DO; 

IF  VALO0  THEN  'JAITFLC-TRUE; 
ELSE  iJAITFLG-FALSE; 

END; 


''^ASE  SET  ANT.  STAT.-TO  BE  ENTERED*/ 
/'CASE  SET  TRACK  START  TIME*/ 

/*CASE  NULL  COMMAND*/ 

■*CASE  ENTER  UAIT  MODE*-' 


:  '*CASE  NULL  COMMAND*/ 

DO;  .■*CASE  °APER  TAPE  DONE*/ 

AUTOFLG -FALSE; 

STFLG-FALSE; 

DONEFLG-TRUE; 

DATANDPTR-B; 

RPRTguFPTR«B: 

.■*1F  NXTRECSEMOB.  PENDING  RECORDS  DILL  STILL  BE  PROCESSED*- 

END; 

DO;  *CASE  ACIMUTH  OFFSET*/ 

CURRENTPTR- . AZOFF  < 1) ; 

IF  (HIGH(VAL)  AND  B0H)-0  THEN  C'JRRENT-VAL; 

ELSE  CURRENT-TENSCOMPtVAL  AND  rFFFH) ; 

AZOFF CO )-0; 

END; 

DO;  /*CASE  ELEVATION  OFFSET*- 

CURRENTPTR. . ELOFF ( I > ; 

IF  (HIGH(VAL)  AND  90H) -0  THEN  CURRENT-V'AL: 

ELSE  CL'RRENT-TENSCOMPtVAL  AND  rFFFH); 

ELuFF  <0) «B; 

END; 


--^INDEFINED  COMMANDS*.' 
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••  /'♦CASE  REQUEST  AZIMUTH*/ 

DISABLE; 

TEMPCD-  HOT  IN(A2!Nl); 

TEMPC2)-IN(AZIN2)  AND  O0FH; 

ENABLE; 

CALL  OUT$STRNG( CURRENT. INTERP, ’ A* ) ; 

END; 

50J  /•♦CASE  REQUEST  TIME  OFFSET*/ 

CALL  OUTJSTRNGCaiNBCDCTMDLY), INTERP. '0*) : 

END: 

50 /♦CASE  REQUEST  ELEVATION*/ 
DISABLE; 

TEMPCD-  NOT  INCELINl); 

TEMP(2) •INCELINZ)  AND  38FH: 

ENABLE; 

CALL  0UT*STRNG(CURRENT. INTERP, ■£*); 

END: 

50:  -*CASE  REQUEST  INTERVAL*-' 

CURRENT -B I NBCDC INTRVL) ; 

CALL  OUT*STRNG<CURRENT, INTERP. *  1* ^ ; 

END; 

;  •'MJNDEFINED  REQUESTS*/ 

50;  /♦CASE  REQUEST  IMMEDIATE  MODE*/ 

IF  AUTOFLG  THEN  CALL  OUTSSTRNGCO. INTERP. ‘M* ) ; 

ELSE  CALL  OUT*STRNG( 1, INTERP. ’M* ) : 

END; 

RPRTFLG-TRL'E;  /CASE  SEND  REPORT*/ 

:  UNDEFINED  REQUESTS*/ 

50:  CASE  REQUEST  TIME*/ 

IF  INTERP-a  THEN  ■:T5?aFLG-TRUE : 

ELSE  CALL  TIM»TOSBUF(.RPRTBUF.  .RPRTBUFPTR''; 

END; 


:  CNDEFINED  REQUESTS*/ 

50:  ♦CASE  REQUEST  lWITMODE*/ 

IF  'JAITFLG  then  CALL  OUTSSTRNG ( 1 .  INTERP.  "J* ) : 

ELSE  cal;.  OUTJSTRNGiO.  INTERP. ‘'.J’ ' : 

END; 

::  /♦UNDEFINED  REQUESTS*/ 

50:  -CASE  REQUEST  AZIM.  OFFSET*. 

CURRENTP-n?. .  proFF  ( 1 ) ; 

IF  C'JRRENT>4999H  THEN  TEMPA-TENSCOI^C CURRENT)  OR  3O00H; 
ELSE  TEi'-PA -CURRENT; 

CALL  OUTSSTRNG CmP A.  INTERP.  ■Z*' : 

END; 

50:  CASE  REQUEST  ELEV.  OFCSE"^- 

CURRENTPtr . . SLCFF  Cl); 

IF  CURRENT>4999H  THEN  TEMPA-TENSCCrf»(CURRENT)  OR  SOOOH; 
ELSE  ’TMPA-CJRRENT: 

CALL  OUTJSTRNG (TEMP A.  INTERP. ’V)  : 

END: 
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DO;  /*CaSE  REQUEST  DATE*/' 

CURRENTPTR-.TEMP(l); 

TEMP(I)-NOT  (IN(DAYLO))  AND  0F0H; 

TEMP(2)-IN(DAYHI); 

CALL  OUTSSTRNG (CURRENT. INTERP.'J'); 

END; 

END; 

END  PRFRM*CMD; 

CNDSCMD ;  PROCEDURE ( INTERP) ; 

INTERPRET  COMMANDS  CONDITIONALLY  ACCORDING  TO  CONTROLLER  STATUS: 

AUTO  OR  IMMEDIATE  MODE 

CNDSCMD  USES:  PRFRMSCMD . DECODE 

DCL  SETSMMODE  LIT  'CMDREG-5’; 

DCL  SETSINTRVL  LIT  'CMDREG-3'; 

DCL  INTERP  BYTE; 

IF  DGTBUFPTRO0  THEN 

VAL -DECODE (.DGTBUF..DGTBUFPTR);  /*VAL  HOLDS  4-DGT  BCD  SGN-MAG  NO.)k/ 
ELSE  VAL-0; 

DO  CASE  INTERP; 

DO;  /^IMMEDIATE  MODE*/* 

IF  STFLG  THEN 
DO; 

IF  CMDREG>0FH  THEN  CALL  PRFRMSCMD (CMDREG. INTERP) ; 
ELSE 

DO; 

IF  MMFLG  THEN 
DO; 

IF  NOT  SETSINTRVO.  THEN 

CALL  PRFRMSCMD (CMDREG. INTERP) ; 

END; 

ELSE 

DO  CASE  CMDREG; 

/*IMMEDIATE  MODE  COMMANDS  ALLOUED 
DURING  AN  AUTORUN*/ 

/♦TIME  OFFSET*/ 

CALL  PRFRMSCMD (CMDREG. INTERP) ; 

/^BORT  RUN*/ 

CALL  PRFRMSCMD (CMDREG. INTERP) ; 

/*SET  IMMEDIATE  MODE*/ 

CALL  PRFRMSCMD (CMDREG. INTERP) ; 


/*SET  A2IMJTH  OFFSET*/ 

CALL  PRFRMSCMD (CMDREG. INTERP); 
/*SET  ELEVATION  OFFSET*/ 

CALL  PRFRMSCMD (CMDREG. INTERP); 

END; 

END; 

END; 

ELSE  CALL  PRFRMSCMD (CMDREG. INTERP) ; 

END; 
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DO:  /*AUTO  nODE*y 

IF  AUTOFLG  THEN 
DO; 

IF  NOT  (SETSMMODE)  THEN  CALL  PRFRM$CMD(CMDREG. INTERP) : 

END; 

ELSE 

DO; 

/PERFORM  CMD.  FOR  A.E.I.O.  A.E  ARE 
UPDATED  3UT  NOT  OUTPUT*/ 

IF  CiTDREG<4  THEN  CALL  PRFRMSCMDtCMDREG.  INTERP) ; 

END; 

END; 

DO;  /*SETUP  RECORD*/ 

IF  NOT  SETSMMODE  THEN  CALL  PRFRMJCIIDCCMDREG. INTERP) ; 

END; 

END; 

DGTBUFPTR-0;  /*  SET  UP  FOR  NEXT  COMMAND*/ 

CMDFLG-FALSE; 

END  CNDSCMD; 

PROCSREC:  PROCEDURE ( I NTERP) ; 

/* 

PROCSREC  PROCESSES  THE  RECORD  OF  COMMANDS.  DECODES  COMMANDS 
AND  NUMERIC  DATA  AND  CAUSES  EACH  COMMAND  IN  THE  RECORD  TO  9E 
SET  UP  FOR  EXECUTION 
PROCSREC  USES:  CNDSCMD 
*/ 

DCL  (INTERP.CMDCD. CHAR. INDEX)  BYTE; 

DCL  ALPHA  LIT  'CHAR>«"A”  AND  CHAR<-'*Z"  OR  CCHAR>140Q 
AND  CHAR<173a)'; 

DO  INDEX-9  TO  Z; 

DGT3UF(INDEX)-'a*;  /*ASCII  ZEROS  TO  DGTBUF*/ 

END; 

IF  INTERP-0  THEN 
DO; 

CHAR-MMIN(INSTPTR); 

INSTPTR-INSTPTR+1; 

IF  ZERO  THEN  INFF-FALSE; 

END; 

ELSE 

DO; 

CHAR-DATA8UF (DATASTPTR) ; 

DATASTPTR-DATASTPTR+1; 

END; 

DO  'JHILE  CHARO’ 

CMDCD-~ I ; 

IF  (CHAR-'+')  OR  (CHAR-*.*)  OR  (CHAR-'-')  OR 
CHARSI3«:DIGIT  THEN 
DO; 

IF  DGTBUFPTRO  THEN 
DO; 

DGTBUF (DGTBUFPTR) -CHAR; 

DGT3UFPTR  -DGTBUFDTR-t- 1 ; 

END; 

END; 
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DO: 

IF  ALPHA  THEN 

DO  CASE  CHAR  AND  IFH: 

:  '^NON-ALPHA  CHAR*/ 

CriDCD-0:  "*A-AclMUTH*/ 

CMDCD-A:  /*C-  TIME  TO  BUFFER*/ 

CMDCD-2:  /*E-ELEVATION*/ 


CMDCD-3:  /*!- INTERVAL*/ 

CMDCD-15;  /*J- JULIAN  DATE*/ 

CMDCD-4:  *K-  ABORT  RUN*/ 

SQSTFLG-TRUE;  .'*REQUEST*/ 
CMDCD-5:  /*M-IMMED.  MODE*/ 

CMDCD-l:  /*0-TIMECFFSET*/ 


CMDCD-b:  ^*R-REPORT#/ 

CMDCD-?”:  /*S-STATUS*/ 

CMDCD-0i  /*T-REAL  TIME  TO  PDP*/ 

CMDCD-14:  *V-ELEVATION  OFFSET*/ 

CMDCD-IO:  •*U-lJAITMODE*/ 


CMDCD-13:  .■■*E-Ac  IMUTH  OFFSET*/ 

END: 

END; 

IF  CHAR-‘«*  then  CMDCD-12;  /*CASE  END-RUN  «/ 

IF  CMDFLG  THEN 
DO: 

IF  (CHAR-*.*)  OR  (CHAR-*L*)  OR  CMOCDO-I  THEN 
CALL  CNDSCMDilNTlRP): 

IF  ABRTFLG  THEN  DO:  ABRTFLG-FALSE:  RETURN:  END 

END: 

IF  CMDCDO-I  THEN 
DO: 

CMDFLG-TRUE: 

IF  RQSTFLG  THEN  CMDREG-CMDCD  OR  I0H: 

ELSE  CMDREG-CMDCD: 

ROSTFLG-FALSE: 

END: 

IF  ABRTFLG  THEN  DO:  ABRTFLG-FALSE:  RETURN:  END: 

IF  INTERP-0  THEN 
DO: 

CHAR-miN<  INSTPTR) : 

INSTPTR-INSTPTR--1: 

IF  ZERO  THEN  INFF -FALSE: 

END: 
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ELSE 

DO; 

CHAR-DA TABUF(DATASTPTR) ; 

DA  TASTPTR -DATASTPTR+ 1 ; 

END; 

END: 

IF  CMDFLG  THEN 
DO; 

CALL  CND«:MD(INTERP); 

IF  ABRTFLG  THEN  DO;  ABRTFLG-FALSE;  RETURN;  END; 

END; 

END  PROCSREC: 

PROCSMMSKEC:  PROCEDURE; 

.■'>kprocess  a  manual  mode  record 

PROC$MM«REC  USES;  ?R0C3REC«^ 

CALL  PROCSRECO); 

INSEM-INSEM-1; 

MMOUT(OUTNDPTR)-' SHOU  A  NEU  RECORD  HAS  BEEN*/ 
OUTNDPTR-OUTNDPTR+I;  /*  ADDED  TO  THE  OUTPUT  BUFFER  «/ 

IF  ZERO  THEN  OUTFF-TRUE; 

OUTSEM-OUTSEM+1; 

END  PROCJMMSREC; 

PROCJDATASREC:  PROCEDURE: 

/*PROCESS  A  DATA  RECORD  FROM  DATA8UF 
PROC$DATA$REC  USES;  PROC5REC*/ 

CALL  PROCSRECCl); 

RPRTBUF(RPRTBUFPTR) ; 

RPRTBUFPTR-RPRTBUFPTR+I ; 

RPRTRECTR-RPRTRECTR+1 ; 

DATARECTR-DATARECTR- 1 ; 

RPRTFLG-FALSE;  -^PENDING  REPORTS  CANCELLED  ON  SETUP  AUTORUN*/ 
NXTRECSEM-NXTRECSEM- 1 ; 

END  PROCJDATASREC; 

SETUPSREC;  PROCEDURE; 

SETUP $REC  READS  AND  PERFORM  THE  FIRST  RECORD  OF  A 
RE.'tOTE  RUN.  THIS  RECORD  SHOULD  PREPOSITION  THE  ANTENNA 
AND  SET  THE  PROPER  INTERVAL. 

SETUP5REC  USES:  PROCJREC 

■«/ 

ELINC(O)-(ELINC(l):-CAZINC(O);-(AZINC<n;-0))): 

ELINC;2)-i;AZINC(2):-a): 

AZOFF(D^ -(AZOFFC 1) : -(AZ0FF(2) : -0)) : 

ELOFF.J>-(ELOFFCl) :-(ELQFF(2) :-a)); 

ELHOLDiO) -;ELHOLD( 1) ;-(ELHOLD(2) : -0) ) ; 

AZHCLDiO) -(AZHOLDC 1) : -CAZHOLDiZ) ; -0)) ; 

ELOLD-iAZOLD;-0); 

RPRTFLG-FALSE;  /*TURN  OFF  OLD  REPORT*/ 

CALL  fR0C3kREC(2): 

RPRT3UF IRPRTBUFPTR) : 

RPR-^UF»TR-RPRT3UFPTR+1 : 

RPRTREC'R-1:  ALWAYS  PRESET  RPRTRECTR  ON  SETUP  «/ 

DATAREC'R-DATARECTR- I ; 

NOTSETUP'^LS-FALSE; 

END  SE-OJPSREC: 
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END  DECODE  AND  PROCESSING 


INTERRUPT  ROUTINES’*«'<°>*>Mt»iW>ixtxoMt»»iMt»nii^ 


PDP4SBC;  PROCEDURE  (CHAR); 

DCL  STX  lit  '02H* : 

DCL  EOT  lit  *34H': 

DCL  CHAR  SYTE; 

IF  STNFLG  then 
DO; 

IF  CHAR-EOT  THEN 
DO; 

3TXFLG -FALSE; 

RETURN; 

END; 

IF  CHAR-':'  THEN  DATARECTR-DATARECTR+1 ; 
DATABUFCDATANDPTR) -CHAR; 
DATANDPTR-DATANDPTR  *■  1; 

END; 

ELSE 

DO: 

IF  CHAR-STX  THEN 
DO; 

STXFLG-TRUE; 

RETURN; 

END; 

IF  CHAR-':*  THEN  INSEM-INSEM  +  1; 

M11N( INNDPTR) -CHAR: 

INNDP1R-INNDPTR  >  1; 

IF  ZERO  THEN  INFF-TRUE; 

END: 

END  PDPSSBC; 

PDP*SBC$1SR:  PROCEDURE  INTERRUPT  4; 

. '♦•PDP'SSBCJISR  USES:  PDPSSBC#'' 

DCL  CHAR  BYTE; 

DCL  EOIC  i.IT  -ZGH’: 

DCL  ICCP  LIT  'ODAH'; 

DCL  CTLX  LIT  '  19H': 

DCL  EXIT  LIT  'OB';  ESCAPE  TO  MONITOR 
CHAR-IN(RS232) : 

IF  ZHAR-CTLX  THEN 
DO; 

OUT(ICCP>-EOIC: 
so  'TO  EXIT: 

END: 

IF  INFF  AND  ( INSTPTR- INNDP'T?<2>  THEN 
DO: 

CALL  OUTTCHARtCTLS) : 

CTLSFLS-TRUE; 

END: 

CALL  ’DPSSBCCCHAR) ; 

0UT( ICCP) -EOIC;  -PRESET  INTERRUPT  CHIP#/ 


END  PDPSSBCSISR: 
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SBC*PDP:  PROCEDURE: 

DCL  CHAR  BYTE; 

CHAR-riraUT(OUTSTPTR)  s 
IF  ENDOUTFLG  THEN 
DO: 

ENDOUTFLG -FALSE: 

MMOUTBUSY-FALSE: 

END: 

ELSE  />t«RESET  REQUEST  ONLY  AFTER  LAST  CHAR  TRANSMITTED*/ 
DO:  /*HAV£  NOT  SEEN  EOR  YET,  SEND  NEXT  CHAR*/ 

IF  CHAR-':'  THEN 
DO: 

OUTSEM-OUTSEM-1: 

ENDOUTFLG -TRUE: 

END: 

OUT (RS232) -CHAR: 

OUTS TPTR -OUTS TP TR+l ; 

IF  ZERO  THEN  OUTFF -FALSE: 

END: 

END  SBCJPDP: 

SBC«PDP«ISR!  PROCEDURE  INTERRUPT  5: 

/*  OUTPUT  CHARACTER  ON  XMIT.  BUF.  EMPTY  INTERRUPT*/ 

DCL  EOIC  LIT  '20H'; 

DCL  ICCP  LIT  'ODAH'; 

CALL  SBCJPDP: 

0UT( ICCP) -EOIC:  /*RESET  INTERRUPT  CHIP*/ 

END  SBC*PDP*ISR; 

TIMEQUAL:  PROCEDURE  BYTE: 

.'^TIMEQUAL  RETURNS  TRUE  'JHEN  SET  TIME  -  REAL  TIME. 

TIMEQUAL  USES:  */ 

IF  TSTART(O)  <>  IN(HR)  THEN  RETURN  FALSE; 

IF  TSTART(l)  <>  IN(MIN)  THEN  RETURN  FALSE: 

IF  •rsrART(2)  <>  (NOT  IN(SEC))  THEN  RETURN  FALSE: 

RETURN  TRUE: 

END  TIMEQUAL: 

TRANSFER5TIME:  PROCEDURE: 

/♦TRANSFER  TIME  TO  PDPll. 

TRANSFER«TIME  USES:  BCDBYTASC.PDP*SBC*/ 

DCL  CPwT  LIT  ' 14H': 

DCL  r<*NOT*RDY  LIT  '(TEST  AND  l)-0'; 

DCL  CHtCXSSTATUS  LIT  'TEST- IN(RS232*CTL) ' : 

DCL  RXSRDY  LIT  '(TEST  AND  2)00': 

DCL  TIM  (2)  BYTE; 

DCL  (TEMP.-^ST. I.PTR)  BYTE; 

DO  1-0  TO  S: 

CHECXfSTATUS: 
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DO  UHILE  TX*NOT$RDY; 

IF  RXJRDY  THEN 

/'••MONITOR  AND  INPUT  CHAR.S  FROM  PDP 
uHILE  UAITING  FOR  USART  OUTPUT  RDY*/ 

DO; 

TEMP-IN(RS232); 

/■•HANDLE  INPUT  CHAR  IN  APPROPRIATE  MANNERiX/ 

CALL  PDP*SBC(TEMP); 

END: 

CHECXSSTATUS; 

END; 

DO  CASE  I; 

'ASSUME  UNPACKED  DATA  OF  24  BITS*/ 
0UT(RS232)-'T'; 

DO; 

PTR-0: 

TEMP-IN(HR); 

CALL  BCDBYTASC (.TIM.. PTR. TEMP); 
QUTCRS232)-T1M(0); 

END; 

OUT(RS232)-TIM(n; 

DO: 

PTR-a; 

TEMP«IN(MIN); 

CALL  BCDBYTASC (.TIM. .PTR. TEMP); 
OUT(RS232)-TIM(0); 

END; 

0UT(RS232)-TIM(1); 

00: 

PTR-0: 

TEMP-NOT  IN(SEC); 

CALL  BCDBYTASC (.TIM. .PTR. TEMP); 
OUT(RS232)-TIM(0); 

END; 

0UT(RS232) -TIM( 1 ) ;  /*QUTPUT  LAST  CHAR*/ 

END: 

END: 

/♦TURNOFF  OUTPUT  STREAM  IF  SYSTEM  OUTPUT  UAS  NOT  ACTIVE*/ 
/♦MMOUTBUSY-TRUE  PREVENTS  OVERRUNS  ON  OUTPUT  */ 

IF  NOT  MM0UT8USY  THEN 
DO: 

ENDOUTFLG-TRUE; 

mOUTBUSY-TRUE; 

END; 

TMJQFLG -FALSE: 

END  TRANSFER*TIME; 

TICK:  PROCEDURE  INTERRUPT  3: 

/♦TIMECODE  INTERRUPT  KEEPS  REAL  TIME.  TRANSFER  REAL  TIME 

AS  REQUESTED  ON  SECOND  TICK 

TICK  USES:  TIMEQUAL. ALARM. TRANSFER*T1ME«/ 

DCL  3CNDBIT  LIT  ' lN(aE4H)  AND  31*; 

DCL  EOIC  LIT  ‘OBH*: 

DCL  ICCP  LIT  *0DAH'! 
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RELOAD$CTR; 

NEUSEC-SCNDBIT; 

IF  OLDSECONEUSEC  THEN 
DO; 

IF  CNTDUNFLG  THEN 
DO; 

IF  TirtQUAL  THEN 
DO; 

STFLG-TRUE; 

CNTDUNFLG-FALSE; 

INTRVLCTR-a; 

TURNONFLG-TRUE; 

END; 

END; 

TMRQFLG  then  call  TRANSFERS! IME; 

END; 

OLDSEC-NEUSEC; 

IF  STFLG  THEN 
DO; 

IF  TMDLYO0  THEN  TMDLY-TMDLY-1  • 

ELSE 

DO; 

IF  INTRVLCTR-0  THEN 

DO;  /*READ  RECORD  TICK*x 

INTRVLCTR-INTRVL-1; 

END*^^  then  NXTRECSEM-N><TRECSEM+1 

ELSE 

DO;  /^INTERPOLATION  TICK*// 

INTRVLCTR- INTRVLCTR- 1 ; 

TICKSEM-TICKSEM+1; 

END; 

END; 

END; 

ELSE 

DO; 

IF  AUTOFLG  AND  NOT  CNTDUNFLG  THEN 
DO; 

NOTSETUPFLG-TRUE; 

CNTDUNFLG -TRUE; 

END; 


END; 

OUT(ICCP)-EOIC; 
END  TICK; 


/^ESET  INTERRUPT  CHIPxu/ 

INTERRUPT  ROUTINES  . . i  i  i  . . . 
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/*  my 

/mmmmmmmmmmmmmmmmm  TASK  PRIORITY  RESOLVER  mmmmmmmmmmmtmmmmmmmmiifmmmy 
/*  */ 

STARTUP: 

DCL  FOREVER  LIT  'UHILE  0-0‘; 

DCL  TXRDY  LIT  '(IN(0EFH)  AND  1)  -  I*; 

CALL  SET* I NT; 

CALL  ZEROSFLGS; 

CALL  SETS 10; 

DO  FOREVER; 

PRIORITY-0; 

IF  RPRTFLG  AND  NOT  STFLG  AND  NOT  MMOUTBUSY  TNEN  PRIORITY-4; 

IF  INSEMO0  TNEN 
DO: 

IF  OUTFF  THEN 
DO; 

IF  0UTSTPTR-0UTHDPTR>32  THEN  PRIORITY-5; 
/-'rt’ROCSMMSREC  ONLY  IF  NO  DANGER  OF  MMOUT  OVRFLU*/ 

END; 

ELSE  PRIORITY-5; 

END; 

IF  MMOUTBUSY  AND  TXRDY  THEN  PRIORITY-?; 

ELSE 

DO; 

IF  OUTSEMO0  AND  NOT  PDP9SY  THEN  PRIORITY-6; 

END; 

IF  CTLSFLG  AND  NOT  INFF  THEN  PRIORITY-8; 

IF  T1CKSEM>0  THEN  PRlORITY-9; 

IF  DONEFLG  THEN  PRIORITY- 10; 

IF  NXTREC3EM  <>  0  THEN  PRIORITY  -11; 

IF  NOTSETUPFLG  THEN  PRIORITY-12; 

IF  TURNONFLG  THEN  PRIORITY-13; 

DO  CASE  PRIORITY; 


CALL  REPORT; 

CALL  FROC*MM*REC: 

CALL  OUTSREC; 

CALL  SBC3PDP; 

00; 

CALL  OUTSCHAR(CTLQ); 
CTL3FLG-FALSE; 

END; 

00; 

CALL  INCSA2EL; 
TICKSEM-TICKSEM-l; 

END; 
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DO: 

IF  NXTRECSEM-0  THEN 
DO: 

DATASTPTR-0: 

DONEFLG -FALSE: 

CALL  OUT$CHAR(CTLZ) 

END: 

END; 

CALL  PROCSDATASREC: 

CALL  SETUPSREC: 

DO: 

CALL  OUTSCHAR(CTLA); 
TURNONFLG -FALSE: 

END: 

END: 

END: 

EOF 
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F.O  Direct  Communication  uith  Antenna  Controller 

The  user  is  usual lij  isolated  from  direct  communication  uith  the 
antenna  controller.  The  operator  interacts  uith  the  graphics  display  on 
tne  PDP11>  and  this  interaction  is  translated  into  a  series  of  commands 
to  the  antenna  controller  Og  the  PDPll  THREADER  program. 

A  PDPll  assembly  language  program  called  'SBC001'  exists  to  provide 
the  user  a  means  of  issuing  commands  directly  to  the  microcomputer 
memory.  The  Keyboard  console  becomes  the  medium  for  issuing  commands. 
To  utilize  SBC001>  type 

R  SBC001 

then  enter  UUUUUU...  until  the  SBC80/^0  monitor  sign-on  message 
appears.  The  console  is  nou  in  direct  communication  uith  the  SBCSn/'20 
monitor  Csee  Ref.  1].  The  monitor  program  resides  in  ROM  on  the 
SBC80/2O  microcomputer  card  and  servos  os  a  bootstrap  aid  for  the 
THREADER  program.  As  the  antenna  controller  program  resides  on  the 
PDPll  disK.  the  program  must  be  doun loaded  to  the  antenna  controller 
memory.  To  doun load,  enter 

T 

and  the  SBC00I  progrom  responds: 

FILENAME- 

at  uhich  point  the  name  of  the  object  file  for  the  antenna  controller 
program  should  be  entered.  Transfer  taKes  several  minutes  and  is 
terminated  by  tuo  bell  tones  and  the  monitor  prompt.  '?*.  To  start  the 
THREADER  program,  uhich  begins  at  hex-location  (4003)  enter: 

G4093 

Once  the  THREADER  program  has  begun,  any  valid  antenna  controller 
command  given  in  section  6.0.2  may  be  entered.  To  return  to  SBCS0/^0 
monitor,  type  '^X*.  The  '^X  option  is  useful  for  system  debug. 

A  listing  of  SBCO0I  is  given  in  Appendix  6.  The  monitor  T-command 
is  a  non-standard  modification  to  the  SBC  monitor.  Version  1.2.  to 
facilitate  file  transfer  from  the  PDPll  to  the  SBC30  microcomputer (See 
Appendix  H) . 
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1  3LlSt)  I0)5«.sr  S8C^€U.0U  ^09*  1 

;W16 

j  M6)  ’iOMJtE  SaCCOTKZlP.PlO* 

0062  aCGtN 

i  0063  9CQU1PC  RTU.RCQ} 

:detM  eM4  X  RnU'2C.RCQ  vCRSlSH  2.3  X  SUITCNCS  NOLiST; 

:  S't'nE  0\Ji  SUPC^COeai.^ONCFLG.RCSPLu.CNOFLu: 

;  dS»a  2\Ji  CHAR] 

i  a5i»t  91ND 

:  0902  JSU  ••000044.  'JOB  STPTVS  JORD 

:  0903  RCSR*«^;*90CO.  iRCVR  STATES  REGlSTtR 

I  0964  SCSR**^^9624.  •TTiANSMimR  STATliS  REGISTER 

i  d9S9  ReUF**?^9G22.  RC^  8UFPER 

;  e9b»  >SUF*«??9»26i  'TRANSMITTER  BUFFER. 

i  090^  >«CRO 

:  a9b0  LF-«0t2S. 

1  a9b9  CR«#0l9f. 

j  dsro  jfp.or. 

:  0971  CN«IS. 

:  3972  tNQ-OS«. 

:  0973  9TR.RC3R< 1. 1>B. 

:  0974  C4RDET..rcSR<.12.I'B. 

5  0975  RT3»RCSR^2. 1>S. 

i  097G  T\SPy«.\CSR<.7.  P«. 

;  0977  R'^RPY•,.RCSR^7. 

:  0979  :TS«.RCSR\13.1>«» 

•  sarn.  iucaAL  routine  skcom* 

:  0979  GlCSAL  routine  SSCCOM* 

;  J980  3EG1N 

:  0991  external  RCS^INT.F  ILNAfl: 

:  0992  >A8£L  u«n.20P.  tpRlOCP: 

:  0983  OUN  CNARTT.dt^NO.  •^OCNT.  avTCNT.LOCPnaX.  AREAC  •103.  D9t^: 

:  0984  LOCAL  ^’TR.TEMP; 

;  0995  8TTE  CuW  -LAGi 

:  0996  '«CRO  F  IL.aUFaOOPST.aLKCNT,  guFLOOP' • 

i  M  0597  SEGiN 

*.  M  0999  *A9El  SUFLCOPj 

:  *1  0989  PT^'LOOPST: 

:  M  0990  wCCPHJX-uCCPST^bieOd! 

}  1  9991  wPCST.:9b; 

:  M  0992  3UFL00P:  BEGIN 

:  M  0993  -nils  .PTR  wSS  .wCCPMAX  20 

:  N  0994  3EGIN 

:  M  0999  IF  .DONEFLG  'HEN 

j  M  0998  iw2CNT«t.PTi}.!^jQOST*n*-l: 

;  N  -'997  wtAvE  3UFL00P' 

N  0599  ELSE 

:  0999  (IF  .RCSPLG  '^EN 

:  ''  ObCO  kRC\«LG*C??j 

:  N  OSOl  3oFC  .^'^R)-.C‘'AR: 

i  N  0602  »'R-.P'R*n:>j 

:  0603  £NOs 

:  M  .'604  tN2: 

:  M  0609  '.^ITd': 

:  M  0606  ^.-RlTEi4REA.!.8UFCL:CPST?..-:2CNT.3LvCNn: 

I  N  0607  IF  .CONEFLG  “HEn  .£4vE  J?TLCCPi 

:  0609  tNfB: 

;  0609  ‘^CRO  TCRERR* 

i  M  .3610  3£C:n 

:  0611  IF  .•93n0.3>  nEQ  j  "^EN  ““R  INT^Pl  !'.*  *.”**<  t«R£RR  •'>» 

I  M06I2  -EAvE  'prlCCP? 

:  06 13  ENDS: 

:  0614  1 

:  0615  '  LiN^  MRCNlNE  ..4NCUAGE 

:  0616  \ 

:  0617  OPtPOEL  INOCnARj 

:  0613  OPCCrE  S8R«dR) 

t  0619  I 

t  0620  I  ^CRN  CN  OLUE 

t  062 1  ^ 

1  0622  J'R^CN: 

t  0623  RTS-ON: 

2  0624  • 

:  0629  t  NO  ECHO  "O  2EC--HITER 

!  3626  f 

i  0627  JSLK12.1>*U 

t  0629  •  i 

1  0629  »  wOAD  XllE  .NTERRl'PT  vEC'CR 

1  063a  ’ 

2  0631  •190-RCSR1NT2 

2  0632  •39:«*OOa2  SET  INTERRUP'  FRIORITV  OF  RCS1»!NT  'O  8R4, 

2  0633  RC:Rn6.  Pn'N:  'ENABLE  5C\R  INTEFr^PT 
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M3S 

Mi.* 

M39 

Moa 

M41 

M4J 

^944 

M45 

e«4« 

M4.* 

06*13 

0644 

C6;e 

3651 

365: 

3653 

3654 

3655 

3656 


PCTCH  Pfc  N«hOLet 

?.rtTrHt*433O«.0CtTi(WD53*r*C  •»)* 

CMX’Uu^Of'j 
IJIILE  1  ?0 
8€t;m 

etKN0«3) 

IF  .ffcvna  T>*CN 

vffC'.^CC^CFFj 

50H6FUG*0FFj 

SCwECT  .CMMvO.a^  OF  NSET 

•♦•j  UF  <.FL4C  eOC  ‘TM  Oft  UFL4G  EX  ’U*'  '^N  '.CLOSEU) 

Flag  •aw 

Cft  :  3eG2N 

select  .Fl4C  of  NSET 
3Eg:n 

TTRLOOPt  BEGIN 

JNUE  :  50 
BEGIN 

r,?E4WJ(4lfE4.  J.FtiF.:56.  ,9L^N0. 

8VTCNT..vftEG*-n 


:  XISII  V.rT26r  JMn««oo(4  10:55.01  SeCNEU.dll  ^09*  1-2 


065? 

065B 

0655 

0660 

0661 

0662 

0663 

0664 

0665 

0666 

066? 

0663 
0669 
06"0 
06?  I 
06?2 
06r3 
06r4 
06?5 
06  ?6 
06?? 

06  ?9 
06*9 
0630 
0681 
0632 
0683 
0634 
0635 
0636 
063? 

0638 

*>689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

069? 

0699 

0699 

0?0fl 

0?0I 

0*02 

0’*?3 

»  0?<'4 

0?05 

OV6 

•''O? 

•VOi 
»‘<'9 
??10 
0**.  I 

O'!:  S'*?: 


8LknO*.XLNO*I: 

-HlLE  .•Tlf  lSS  .BYTTNT  WJ 
BEGIN 

:f  .esqflg  ex  oh  rutn 

VL»^IL£  NOT  'VftPN  ro: 

TI!^».81.FC  .p^3: 

«r^..priy*{j 

N®UF..rE‘ft: 

ENOFUG-OFF': 

’.F  .JOHEFlG  tCL  ON  THEN  LEavE  tf^LOOP 

END: 

END: 

END: 

CLAC-6J 

'.:lcseu>: 

'.®«INT(PL1H*'C?G*>  w 

END: 

•U*J  3EGIH 

.J?n.OCP:  96GIN 

^\LZ  \  ro 

3CGIM 

" I LLSUF 10.. 9LKH0 . wOO® I ' : 

3LKN0«.BLVN0^l: 

F  II4.8LF .  •  J  000 .  .  SLLNO .  L00P2' : 

3LKH0-.3L«.S0*1: 

END: 

END: 

FL4G.0; 

'.CLOSE(l): 

'.eftlNT^PLlTC'G'G'M: 

rONEFLG-OFP. 

END: 

^SN: 

END: 

'tSNi  i 

CN4ft^v 0 . 9 N •  ’ .  rriNft ( *89 V *NOCHiaft > '  • 

SELECT  .OM4ftTr<0.i'  OF  sscr 

lF  I  ♦8ftilNCCN4ftW  DON*'*’  'ft4NSN|T  L*”S 
'T* :  “L**:*'  '*  j 

*U*s  *L4G*"J': 

29  :  SELECT  .*L4G  0®  vSET 

j 

'.*.0CvlFi4fc4. i.^’:LN4mFL4TiF4r50*ri^  ^^>4  rftr*"': 


.reLv«:L'*4N^0>i 

IF  .08LV  N£G  0  -ves  '.£STT9v49€4. :.,:9LK.*100' 
ELSE  ^L4G*0W 

nSN; 

'ESN: 

-HILE  NO*  -NftDV  TO: 

\8LP«.C'*49r*‘i 
|HCC''4<;  : 

:ndj 
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:  9LISU  V.:r267 

j  QT\Q 

:  97\\ 

07  \2 
SSCCC.I 
.CSECT  SSCC.C 

9»3*x3 

3?«Xb 

:L'.t:-343 


J*an#saavi  10:57.53  59CNEJ.311 


“oga  1-3 


END: 


CND: 


CHAR  IT: 
fNOCHAR:  : 


81S 

•10000.9*44 

•RC'tl^lNT.  J*350 

>t3V 

•200.9*352 

91S9 

•106.9*175620 

•PtAAS.RtO 

•tlv 

*40000. -tSP> 

EfIT 

543 

CLR9 

ENCFi.3 

L*12: 

CLR 

9LVN0 

91TB 

•1.9*RCVPLS 

SNE 

LS69 

LK9: 

JMP 

Lt34 

Ltbd: 

CLRB 

RC'.PUu 

^lOV 

^•CHrtR.R^0 

31C 

•177400. RS0 

utlbr: 

snT 

341 

9LC 

Jfl67 

CCR9 

OOSEPLC 

CLR 

RS2 

9ISB 

>*CHAR.RS2 

CMP 

RS2.  ^43 

9NE 

LSIS 

:i^9 

9*fUAG.^l24 

9E3 

LS16 

C7f»9 

>*PLAG.*127 

3NE 

lS10 

LS16: 

‘tJV 

•3001 .R«0 

EMT 

374 

LtlO: 

CLi?0 

•fUAG 

w9)S: 

cr5» 

R»2.*IS 

9HE 

L669 

CUR 

R«2 

dlS9 

9*fUAG.RS2 

9Lis\i  v..-r:67 


l-^«b-'6  11:00.46 


secNEu.sii 


®oq«  1-4 


ItZXx 


Ef3t 

v«170j 


C7P 

RS2.^124 

9NE 

LS20 

t)V 

*4001. AREA 

10V 

j*plkw.area*2 

nDV 

•euF  .aream 

-%iv 

•400. ARE A 

CLR 

AREA^lO 

•tJV 

•AREA.RfO 

trff 

375 

3M1$ 

US170 

•STB 

9*52 

3E3 

TPRLOOP 

•PSOAC.RfO 

EMT 

331 

9R 

TRLOOP 

NOV 

RfO.flVTCNT 

ASL 

axTCNT 

Cur 

Rll 

INC 

SuxNO 

R«1 .  9*0'»'TCNT 

SGE 

LSCl 

J»€NQFLG.*1 

SNE 

.SCO 

1 


i 
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LSSSi 

TSTB 

ft«r5624 

0PL 

LM? 

CLft 

R93 

3IS8 

8UF(R«n  .ft93 

INC 

ftft 

MOV 

ft93.ftPir5626 

CLftB 

enqflg 

LfSBt 

CMP8 

ft»DCINEFLG.«l 

dNC 

L«24 

TFRLOOPi 

CURB 

FL4G 

MOV 

•  ^001. RM 

EMT 

J.-4 

MOV 

•P«4AD.Rf0 

5MT 

35  J 

LKOi 

zrp 

R»C.«!Sr 

SNE 

L969 

L935< 

CLft 

991 

MOV 

•lOOO.LOCPrMX 

MOV 

•400.UDCNT 

^»'6i 

cr9» 

«9l . J«LUOPMrtX 

9GE 

LOOPt 

9ITB 

•\,  JPPONEFLG 

dEQ 

1939 

I’flV 

ftfi .ft«e 

JNC 

R90 

4$ft 

S'«0 

MOV 

*«1.UPrNT 

I  PLISII  V.rr26r  SOCNEU.SII  Pa»}#  1*5 

M  LOOP! 

91TB  •J.i*RCVFLG 

9tQ  LM 

CLPB  PCVPLG 

MOVB  l»CHiaR.GUF<R9l) 

INC 

eft  Lt16 

,0C*PU  W  •KK« 

PMT 

^QV  •44t)l.>)REA 

"t)V  •«l!F.4ftEe+4 

•tjv  »»ijrCNT.*>REe*« 

MOV  •J.4PE4Hfl 

'niv  •4»?E4.?<W 

EMT  ?r5 

31TB  •l.l«OONEPLG 

0NE  ’.(ftTvcOP 

;nc  lkno 

‘fjv  •H'OO.Rfti 

*^iv  •.'oeo.uOOPMftx 

MOV  •UOO.^DCNT 

L-wfij  ^91 .  ^KOOPrwx 

.^GE  LOOPS 

3!-B  •! .  >«l*aNE'^LG 

3EQ  w944 

'•nv  R<t.'7w 

«U0  •.Tr.'.'M 

v^Sft  *“■♦0 

MOV  S'tO.lJDCNT 

6ft  uOGPS 

^I49»  eiTB  •l.9«ftC'vPLG 

PEO  L>4(9 

CL«0  PC'.FLG 

“lOvB  >•^:Hrtft.auP<fttJ ) 

:mc  «ii 

nft  w  S46 

^OOPSt  'T1V  •I.9W 

CMf  .*4 

MQV  *44«M.^0E4 

**0V  «•eL'^^^0.PftEft♦2 

•*0v  •3l'^*l00t^.»>ftF4»4 

-nv  !•<,  ?r*»f .  HftE4*<5 

‘«)V  •l.4PF4*J0 

•»5V  •mPEA.RM 

f‘lT  S.-* 

rfa  •l.l•pONeFLG 

.v,l  .4TLJ0P 

••♦C  aL*nO 


»L4G 
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:  9L!Sn  U»on««ocK4  lU6Q.4r  SSCHCU.OU  1*6 


nov 

♦3e0t.i?«8 

ertr 

S74 

ttJV 

EnT 

351 

CLRB 

DONEPIC 

L»3<4i 

efIT 

348 

EfUt 

dtO 

fNOCKAR 

Jfl96t 

*CVB 

R«.9*CH4RTT 

CLR 

9t8 

9IS8 

^•CH4RTT.S« 

C!^ 

5EQ 

SNOChAR 

CfT 

^90. 

9N6 

L«7 

‘UVB 

•  i:4.r\.AG 

l*57: 

l.MP 

^♦0. 9127 

9HE 

LSSd 

"OV9 

•  1:'7.FL4C 

LiSSi 

3Ne 

LS61 

CLR 

^%2 

disa 

^•fL4G.RS3 

:j7p 

Rt2.#t24 

3NE 

•40l.4REft 

*iOV 

•P<W4F.  -iSP) 

J5R 

«>C.  J*PILN4ri 

SW.AffEA^a 

CtR 

4RE4^4 

'ttV 

*4ReA.^{<8 

ErtT 

375 

’ST 

LSbOi 

3NE 

L$S1 

CUR 

-i$P' 

,'SR 

?c.j*FaM4n 

MOV 

?fo.reLK 

3S0 

LS83 

'tJV 

•  100!  .>4RE4 

MOV 

‘tJV 

•  lOt^.AREA^ 

CL« 

4PE4^6 

'^V 

•4RC^.:^<a 

•MT 

375 

3R 

L«84 

:l«b 

PL4G 

«So4: 

’ST 

.  ♦ 

^Si\i 

’ST9 

>•175624 

3PI. 

‘’OV 

>  *0  H4R  TT . j • 1 75626 

rOCHARi 


:  il'.Sll  V.7**;57  ^0n«sciag  i*P#o-'0  U;00. 49  3BCNEW.3U 

:  ROUTINE  3:Z£j  J39 
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I  6LISU  v.rrri*  secNEu.dit  <*0^ 

jrr  L*t5 

t  •^OUTIHf  S\Zlt  339 


.CSCCT  ?iCC.3 
LOOP^WXi 


3>TCNT» 

.-.♦i 

StvNOi 

?t*LKi  . 

•  .  *\ 

.EVEN 

•  ♦JO 

...?CNT, 

.:sicr 

'58CC..® 

.  A^K'? 

t40,“ 

»t 

.•c«r 

uo.* 

♦4 

.  JC«J? 

wjt 

M4r4 

.jcs'r 

(;4ij.5j09.*.?i:o6 

.x<? 

•  i 

.v4'«? 

.uw.^BU 

?C‘F’Nr 

.^wU6L 

r  *LNtiM 

58  rn.  aLC84L 

?CUT!MF. 

<^tLN4Mv?fLr4Pt>* 

iT.M3 

;l:94l 

CrutlNL  ftLS4Mv?rL TOPS'* 

0*14 

PEuIN 

•"V15N41.  194I'5rt{ 

^'iTf  an  4$cnpp'(  •,'0  3: 

tV'‘1 

';.N  ‘itJV'F  .  ^ar^OPUFC  •to  Ji 

!  4 

wX4L  : 

.rr*‘.4P} 

o*:ci 

:iPcc;o'-  p* ; 

‘'*Jl 

4-j  J 

:  t  v*.*  j 

;sr»?  •  COM  j  '0  •i-  9Y  1  ?o  4’cr  uPi>: .  5  V  •; 

'‘:5 

SMNT.PV  iT  \  ***^';F  iLENrtMf. '  .  *  •'  , 

•'  *r? 

?0 

t 

•5CL6CT  .jMOfcH  .  1I.O'  .'K  S'ift’ 

‘  ‘ '  •  \  t^OUT  V  :  1  •»!>  i 

tv*;4 

''  r  * 

•  'M*  1  1 

8Listi  v..”: 

UliMtrtvvvtog  tttOI.lfi  .*BCNfU.9n  1-4 

O.MI 

OTVtSUISE*  1?.  •T>\X»T\  .CmiRF'  lOSCIieiTC  1*.  {♦I  3*.CH4SFv0.4" 

TtSH> 

0?t3 

UNTIL  .lKWnO.O'  CX  ‘^*1*1 

0M4 

ir 

,t  LEO  J  'VEN  .rri.1>>I>«  \rir.1UET  if  no  FliCNrtliFV 

or  55 

tL$f 

o:5i 

tS9*MtlTil.‘'LlT(i:'.4SCn8l'T  .Crtp^OmiF'i  '^'STVrtN  LINK  *T>  .SOP^O 

vvsr 

*J5»iPC. .SOp^Ot  j 

or?8 

S4PM>«l'f ' 

or  59 

fHpi 
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.CSCCT  SBCC.C 


PlLNAMt 


901. -(SPI 

9*2.-tSP> 

fiOV 

Rf5.-(SP) 

•‘10  VB 

•lOa.rtSCIlBUF 

'TVB 

•  U3.4SCnBUF*! 

MOV 

«2.RS5 

L*76t 

MOVB 

•^.•^SCIIBLIPCRW 

INC 

Rf5 

crf» 

SLC 

LS76 

MOV 

•PtPAG.RSa 

EMT 

351 

MOV 

•i2.R$S 

wt204! 

EMT 

340 

3L0 

u$ce<4 

MOV 

eW.CHARF 

CLR 

992 

Bise 

999.992 

CIR 

99\ 

C^f» 

9*0. *56 

BNE 

ISTS 

9IC 

•1 77400. P«0 

J*205: 

EMT 

341 

BLO 

0*205 

•^v 

•10.9*3 

INC 

9*1 

L9T9t 

cyp 

992. •12 

BNE 

Lsoe 

INC 

99\ 

^*90; 

CMP 

9*2. •IS 

«NE 

L*3t 

INC 

991 

LS31 : 

9*1 

BGT 

L*B2 

MOV 

^•CMARF.PfO 

9IC 

•  ir  i00..9«0 

oSZCr; 

EMT 

341 

9L0 

;j*20? 

:  3Lisn 

7  w«dnv9csoi^ 

INC 

c*5 

‘-OVB 

^•(:hacp,asci  rpuPo 

-S32! 

C-»9 

^•CH4RF.«l5 

BNE 

L*7B 

zyp 

9*5.  *2 

sGT 

Lf35 

'•OV 

;OiSP>  ..9*0 

59 

^S35: 

'-OV 

•0f4«)H.9fS 

;SR 

-r.-#*i9Ar50 

'-OV 

•P4D5CeuP.9«0 

wf?6: 

•OV 

vSP'*.9«5 

'•TV 

‘?P'*.9*2 

*-0V 

t3P' *.9*l 

»C 

:  ^out: 

:ne  si:e: 

'30 

43:i:sc=: 

-20 

>URC5 

=4:5051’=:  .v 

*20 

.crSCT  secc,« 

*•5 

*t44.1i  .UC=? 

•015.44«O6. 4X514 

.  v-*!  *  C 

40515.4X515.  ;‘?0C75 

*4 

=  t44H: 

t.->$4A1.4SCI:0J.= 

94?50BLP 

•1 

=T44I: 

;•! 

.;^:8L  :54:.«c 

^  cNeu.flu 
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.SBTTL 

GLCBl^ 

ROUTINE  INTERRUPT  RCVRINT* 

; 

0740 

GLOBAL  ROUTINE  INTERRUPT  RCVRINT- 

• 

0741 

BEGIN 

: 

0742 

IF  R>«DY  THEN 

• 

0743 

(CHAR*.RBUF<a.8>2 

• 

0744 

IF  .CHAR<0«8>  EQL  ENQ  THEN  ENOFL6*ON 

2 

0745 

ELSE 

; 

0746 

<IF  .CHAR<0.8>  EQL  'r?'  THEN  DONEFLG*! 

; 

0747 

RCVFL6*0N))2 

s 

0748 

END2 

.CSECT 

SBCC.C 

PCVRINT 

94 175620 

Si  L 

L.<S2 

2  3LIS1 

1  V. 77267  Uvdndsdoij  l-F»b-78  11:02.24  S8CNEU.B1 

CLft 

CHAR 

MOVB 

94 175622. CHAR 

CMPfl 

9KHAR.45 

8NE 

LS91 

MOVB 

RTl 

•l.EHOFLG 

LS911 

cr^B 

9«CHAR.«77 

9NE 

LS94 

rtJVB 

•1. DONEFLG 

LS94: 

MOVB 

•l.RCVFLG 

l$92: 

RTI 

:  ROUTINE  SIZE:  27 


0749  END 

azsa  ELUDon 


.CSECT  SBCC.O 
ENOFLG:  .-.>1 
.c'VEN 

CHM:  .•.♦2 
DONEFLG;  .•.+! 
RCVFLG: 

3UF:  .•.-►2000 
.GL09t  RCVRINT 
.3L08L  SBCCOn 
.GLOBL  FILMAn 


:  Sls«:  446-*-S78 
;  Run  Ttnw:  53  Seconds 
:  Zor«  Ud«d:  25K 
:  Comoilaiion  Complold 

.END 
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wcroco.wtb' 
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ftPPEMDlX  H 


PtodlUcaiions 


io  S0C-ftonlto«’' 
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H.0  Modifications  to  SBC-Monitor 
H. 1  Addition  of  T  Command 

The  SBC  monitor  uas  modified  to  include  the  T  command.  The  format 
of  the  T  command  is: 

Thhhh 

where  'hhhh*  is  an  optional  hex-offset.  The  T  command  enables  the 
downloading  of  a  hex  object  files  from  the  PDPll  to  the  microcomputer 
memorg.  This  is  accomplished  bg  a  software  request -response  on  a 
character  bg  character  basis.  Uhen  the  microcomputer  is  readg,  an  'ENQ' 
is  transmitted  and  the  microcomputer  enters  a  wait  loop.  The  PDPll 
program,  SBC0O1,  detects  the  ENQ  and  responds  with  the  next  character 
from  the  hex  object  file.  The  hex  object  file  contains  load  address 
information  within  each  record.  The  hex  offset  is  added  to  the  load 
address  to  determine  the  actual  load  address:  if  the  offset  is  not 
prescribed,  0  is  assumed. 

The  following  shows  the  modifications  to  Version  1.2  of  the  SBC 
monitor  to  include  the  T  command.  Code  lines  in  Version  1.2  aro 
prefixed  bg  those  in  the  modified  monitor (denoted  Version  1.2X) 

are  prefixed  bg  '2)'. 


1)  1 

TITLE 

'90/^0 

MONITOR,  V  1.2.  12  JLY  77' 

2)1 

TITLE 

'80/20 

MONITOR.  V  1.2X.  20  DEC  77' 

1)1 

VERSION  1.2 

1) 

12  JLY  1977 

1) 

2)  1 

VERSION  1.2X 

2) 

20  DEC  77 

2) 

1)  1 

1*^ 

MVI 

C.'.' 

;  PROMPT  CHARACTER  TO  C 

1) 

CALL 

ECHO 

;  SEND  PROMPT  CHARACTER  TO 

USER 

TERMINAL 

2)  1 

XRA 

A 

2) 

STA 

TCFLG 

;  ZERO  TCFLG— DEFAULT  TO  TTY  MODE 

2) 

MVI 

C,'?' 

;  PROMPT  CHARACTER  TO  C 

2) 

CALL 

tow 

ECHO 

;  SEND  PROMPT  CHARACTER  TO 

USER 

TERMINAL 

1)1  ;  CALLS:  QETCH 

,ECHO,CO,RICH,BYTE 

1)  i  DESTROYS:  A, 

B,C,D,E 

.H.L.F/F'S 

2)1 

CALLS:  GETCH 

, ECHO. RICH, BYTE 

2) 

DESTROYS:  A, 

Ktt 

B.C.D.E 

.H,L.F/F'S 

THREfiDER  MICROCOMPUTER  PNTENNfl  CONTROLLER 
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1)  1 

FUNCTION  UCMD 

2)  1 

FUNCTON  TCMD 

2) 

INPUTS;  NONE 

2) 

OUTPUTS:  NONE 

2) 

CALLS 

;  GETHX. ECHO. ERROR. RICH. BYTE 

2) 

DESTROYS;  A. 

3.C.D.E 

.H.L.F/F'S 

2) 

DESCRIPTION: 

TCMD  I 

MPLEMENTS  READ  OF  A  HEX-FILE  FROM 

THE  PDP 

2) 

UNDER 

SOFTUARE  CONTROL.  THE  T-COMMAND 

IS  THHHH 

2) 

UHERE 

'HHHH*  IS  AN  OPTIONAL  HEX  OFFSET. 

ASSUMED 

2) 

IF  OMITTED.  THE  OFFSET  IS  ADDED  TO  THE 

RECORD 

2) 

ADDRESSES  IN  THE  HES-FILE. 

2) 

2)  TCMD; 

2) 

MVI 

A.80H 

2) 

STA 

TCFLG 

;SET  TCFLG 

2) 

CALL 

GETHX 

;GET  A  NUMBER  TO  BC 

2) 

JC 

TCM04 

2) 

XRA 

A 

; IF  NO  NUMBER  IN  INPUT  STREAM 

2) 

MOV 

B.A 

;ZERO  BC 

2) 

rtjv 

C.A 

2)  TCM04: 

2) 

PUSH 

B 

;SAVE  OFFSET 

2) 

MOV 

C.D 

;GET  DELIMITER 

2) 

CALL 

ECHO 

:ECHO  IT 

2) 

MOV 

A.C 

2) 

CPI 

CR 

;IF  DELIMITER  NOT  CR 

2) 

JN2 

ERROR 

! RETURN  ERROR.  'GETCM*  CLEARS  STACK 

2)  TCM05: 

2) 

CALL 

RICH 

:ELSE  CONTINUE. 

21 

CPI 

• . » 

.LOOK  FOR  RECORD  START 

2) 

JNZ 

TCM05 

2) 

XRA 

A 

CLEAR  A 

2) 

MOV 

D.A 

INITIALIZE  D  FOR  CHECKSUM 

2) 

CALL 

BYTE 

READ  RECORD  LENGTH  FROM  INPUT 

2) 

J2 

GETCM 

IF  ZERO-DONE.  'GETCM'  CLRS.  STK. 

2) 

MOV 

E.A 

SAVE  RECORD  LENGTH  IN  E 

2) 

CALL 

BYTE 

MSB  OF  LOAD  ADDRESS 

2) 

MOV 

H.A 

TO  H 

2) 

CALL 

BYTE 

LSB  OF  LOAD  ADDRESS 

2) 

MOV 

L.A 

TO  L 

2) 

POP 

B 

GET  OFFSET 

2) 

DAD 

B 

ADD  OFFSET  TO  RECORD  ADDRESS 

2) 

PUSH 

B 

SAVE  OFFSET 

2) 

CALL 

BYTE 

GET  RECORD  TYPE 

2) 

MOV 

C.E 

RECORD  LENGTH  TO  C 

S4 
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2) 


TCM10: 


2) 

CALL 

BYTE 

2) 

MOV 

M.A 

2) 

INX 

H 

2) 

DCR 

E 

2) 

JNZ 

TCM10 

2) 

CALL 

BYTE 

2) 

JNZ 

ERROR 

2) 

JMP 

TCM05 

2) 

2) 

2) 

2) 

2) 

2) 


GET  DATA  BYTE  FROM  TAPE 
STORE  AND 
INCREMENT  POINTER 
DECREMENT  RECORD  LENGTH 
LOOP  UNTIL  DONE 
READ  CHECKSUM 
CHECKSUM  ERROR  IF  NOT  ZERO 
GET  ANOTHER  RECORD 


FUNCTION  UCMD 


1)  1 

2)  1 
2) 
2) 
2) 
2) 
2) 
2) 


;  FUNCTION;  GETHX 

ORG  40eH 


;REMAINDER  OF  MONITOR  WILL  GO  ON  UNIQUE  2708 


FUNCTION;  GETHX 


n  1 

XRA 

A 

• 

* 

ZERO  A 

1) 

STC 

• 

P 

SET  CARRY  INDICATING  TIMEOUT  ERROR 

2)1 

RIM; 

XRfl 

A 

• 

ZERO  A 

2) 

STC 

SET  CARRY  INDICATING  TIMEOUT  ERROR 

joMOMOMOMOIc 

1)  1 

CALL 

RI 

« 

p 

READ  A  CHARACTER  FROM  TAPE 

1) 

JC 

ERROR 

p 

JUMP  IF  READER  TIMEOUT  ERROR 

1) 

AN  I 

PRTY0 

• 

p 

REMOVE  PARITY  BIT 

2)  1 

LDA 

TCFLG 

2) 

RLC 

• 

p 

TEST  FOR  A  TI  OR  RI  CHARACTER  READ 

2) 

CNC 

RI 

• 

p 

TCFLG  CLEAR-RI 

2) 

LDA 

TCFLG 

2) 

RLC 

2) 

CC 

TI 

• 

p 

TCFLG  SET- INPUT  FROM  PDPll-TI 

2) 

RIRET; 

JC 

ERROR 

• 

p 

JUMP  IF  READER  TIMEOUT  ERROR 

2) 

AN  I 

PRTY0 

• 

p 

REMOVE  PARITY  BIT 

l:  . 

;  FUNCTION; 

VALDG 

2)  1 

;  FUNCTION; 

TI 

2) 

j  INPUTS 

1;  NONE 

2) 

;  OUTPUTS; 

NONE 

2) 

;  CALLS; 

DELAY 

2) 

:  DESTROYS; 

A,F/F*S 
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2) 

2) 

2) 

2) 

2) 

2) 

2) 

2) 

2> 

2) 

2) 

2) 

2.1 

2) 

2) 

2) 

2) 

2) 

2) 

2) 


DESCRIPTION:  ENABLES  SINGLE  CHARACTER  TRANSFER  VIA  SOFTUARE 
REQUEST.  THE  SBCa0/20  OUTPUTS  *ENQ*  AND  UAITS 
250  MSEC.  FOR  A  CHARACTER  RETURN. 


ENQ 

EQU 

05  i ENQUIRY  REQUESTS  CHARACTER  FROM  PDPll 

Tl; 

PUSH 

B 

TI05: 

IN 

CNCTL 

MAKE  SURE  NO  CHARACTERS  ARE  IN 

AN  I 

TRDY 

TRANSMITTER  BUFFER. 

JZ 

TI05 

TI05  LOOP  UAITS  FOR  TX  BUFFER  READY 

MVI 

A.  ENQ 

TX  BUFFER  EMPTY— >OK  TO  TRANSMIT 

OUT 

CNOUT 

SEND  ACKNOULEDGE 

TI09: 

MVI 

0.250 

SET  UAIT  LOOP  FOR  250  MSEC. 

JMP 

Rlia  ;IJA1T  FOR  CHARACTER  RETURN 

FUNCTION:  VALDG 


.ioKMoMonMaK 


oi 

DB 

CR.LF.' 

80/-20  MONITOR  V  1.2'. CR.LF 

1) 

LSGNON 

EQU 

*-SGNON 

;  LENGTH  OF  SIGNON  MESSAGE 

XoMoK 

2)  1 

DB 

CR.LF.' 

80/20  MONITOR  V  1.2X'. CR.LF 

2) 

LSGNON 

EQU 

*-SGNON 

;  LENGTH  OF  SIGNON  MESSAGE 

I)  1 

DU 

NCMD 

1) 

DU 

XCMD 

XO«oM( 

2)1 

DU 

TCMD 

;ADD  TCMD  TO  COMMAND  ADDRESS  TABLE 

2) 

DU 

NCMD 

2) 

DU 

XCMD 

^^otoKtototcmnicm 

1)1 

DB 

'N' 

.) 

NCMDS 

EQU 

$-CTAB 

;  NUMBER  OF  VALID  COMMANDS 

XOMC* 

2'  1 

DB 

'N' 

2: 

DB 

'T' 

;  ADD  'T'  TO  COMMAND  CHARACTER  TABLE 

2) 

NCMDS 

EQU 

*-CTAB 

;  NUMBER  OF  VALID  COMMANDS 

1)1 

TEMP: 

DB 

0  ;  TEMPORARY  MONITOR  CELL 

1) 

t 

# 

inMdi 

2)1 

TEMP: 

DB 

0 

S  TEMPORARY  MONITOR  CELL 

2) 

TCFLG: 

DB 

0 

:  FLAG  TO  CHOOSE  TTY  OR  PDPll  READ  OF 

HEX  1 

2) 

;  IF  TCFLG  SET  READ  PDPll.  READ  TTYIDEFAUL 

2) 

OFSTFLG 

: 

DB 

0  jFLAG  TO  INDICATE  OFFSET  MUST 

BE  Cl 

2) 

i 

JtclutaMMowtoMc 
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H.2  INTSET 

INT5ET  is  on  8060  assembltj  languoqo  program  uhich  is  called  from 
the  SETSINT  procedure  in  the  PL^  code.  INTSET  alters  the  Interrupt 
Jump  table  from  state  preset  by  the  monitor.  The  service  routines  for 
interrupts  3,4,5  are  set  to  TICK,  PDPSBCISR  and  SBCPDPISR,  respectively, 
replacing  the  monitor  services  routines.  INTSET  resides  or  (3800)  hex. 
The  listing  follows: 


INTSET— >PGM.  TO  FILL  INT.  VCTS.,  SEQ.*1021.  13-MA  PAGE  1 

TITLE  ' INTSET— >PGM.  TO  FILL  INT.  VCTS.,  SEQ.*I021,  13-MAR-T9' 


INTSET  IS  CALLED  FROM  THE  PL^  ROUTINE  SETINT  AND  FILL  THE 

INTERRUPT  'SECTORS  FOR  THE  8259  SO  THAT  THE  PL/M  INTERRUPT 
ROUTINES  WILL  BE  ACCESSED.  THE  ROUTINES  OF  INTEREST 
ARE  TICK, PDPSBCISR, SBCPDPISR. 


* . 

LIST 

X.M 

ORG 

3800H 

; FIRST  AV^AILABLE  RAM  ON  SBC80/20  BOARD. 

e 

.  )Ioiow«(*)Mwox5wo^^  interrupt  TABLE  ADDRESSES 

VECT5 

EQU 

3FF4H 

VECT4 

EQU 

3FF0H 

VECT3 

EQU 

3FECH 

’Momi  INTERRUPT  PARAMETERS 

OCUl 

EQU 

0D9H 

05T70FF 

EQU 

aE0H 

e 

MVHX 

MOVES 

BYTE  ADDRESSED  BY  H  TO  LOCATION  SPECIFIED  BY 

X(-D,8 

ONLY!). 

MVHX 

MACRO 

X 

MOV 

A,M 

STAX 

X 

I  NX 

H 
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LOAD  FILLS  AN  INTERRUPT  VECTOR  JUMP  INSTRUCTION  INTO  THE 
INTERRUPT  JUMP  TABLE  SPECIFIED  BY  ADR. 


MACRO 

ADR. VECTOR 

LXI 

D.ADR 

LXI 

H. VECTOR 

MVHX 

D 

MVHX 

D 

MVHX 

ENDM 

D 

INTSET: 

INTSET-->PGM.  TO  FILL  INT.  VCTS..  SEQ.*1021.  13-MA  PAGE 


LOAD 

VECT3.TICK 

LXI 

D.VECT3 

+ 

LXI 

H.TICK 

+ 

MVHX 

D 

MOV 

A.M 

■f 

STAX 

D 

INX 

H 

+ 

INX 

D 

+ 

MVHX 

D 

+ 

MOV 

A.M 

+ 

STAX 

D 

+ 

INX 

H 

♦ 

INX 

D 

MVHX 

D 

•f 

MOV 

A.M 

+ 

STAX 

D 

+- 

INX 

H 

+ 

INX 

D 

LOAD 

VECT4.PDPSBC 

LXI 

D.VECT4 

LXI 

H.PDPSBC 

MVHX 

D 

+ 

MOV 

A.M 

-f 

STAX 

D 

+ 

INX 

H 

INX 

D 

MVHX 

D 

MOV 

A.M 

+ 

STAX 

D 

INX 

H 

INX 

D 

MVHX 

D 
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+ 

MOV 

A.M 

+ 

STAX 

D 

+ 

INX 

H 

+ 

INX 

D 

LOAD 

VECTS.SBCPDP 

+ 

LXI 

D.VECT5 

+ 

LX  I 

H.SBCPDP 

+ 

MVHX 

D 

+ 

MOV 

A.M 

+ 

STAX 

D 

+ 

INX 

H 

+ 

INX 

D 

+ 

MVHX 

D 

+ 

MOV 

A.M 

+ 

STAX 

D 

+ 

INX 

H 

+ 

INX 

D 

+ 

MVHX 

D 

+ 

MOV 

A.M 

+ 

STAX 

D 

INTSET— >PGM.  TO  FILL  INT.  VCTS..  SEQ.*1021.  I3-MA  PAGE  3 

+  INX  H 

+  INX  D 

RET 


SBCPDP 

JMP 

59A4H 

PDPSBC 

JMP 

5922H 

TICK 

JMP 

5AE2H 
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100  pps  signal  . 

•  •  • 

19. 

26 

3000  pedestal  . 

.  .  .  1. 

4 

8080  . 

.  .  .  1. 

2. 

3. 

14 

A-comnand  . 

...  6. 

12 

dutorun  . 

...  7. 

3. 

9. 

10. 

12. 

bdcKpanel  . 

...  24 

BCD . 

...  14 

BLC  016  . 

...  3 

8LC016  . 

...  22 

BULLSEYE  . 

...  4. 

26 

cable  . 

•  .  >  4, 

24. 

26 

,  27 

character  set  . 

...  6 

circular  input  buffer  .... 

...  9, 

11. 

15 

circular  output  buffer  .... 

...  9. 

16 

command  . 

.  .  .  1. 

2. 

4.  1 

6.  7 

.  8 

commands . . . 

...  12 

control  characters  . 

...  5. 

8. 

11. 

12. 

15 

data  buffer  . 

...  8. 

9. 

12. 

16 

data  file  . 

.  .  .  8. 

q . 

11, 

12, 

15 

date  cable  .  .  . 

...  27 

DATUM  9200  . 

...  4. 

26 

DLllE  . 

.  .  .  5. 

20 

E-command . .  . 

.  .  .  12 

ephemeris  bulletin  . 

.  .  .  2. 

8 

I-command  . 

.  .  .  9, 

12 

immediate  mode  . 

.  .  .  7, 

9, 

12. 

13. 

16 

inlerpolal  ion  . . 12.  14 

inlorrupt . 3.  14,  15,  16,  94 

interrupt  service  routine  .  15,  19 

interrupts . 19 

IRIG-B . 4.  26 

J— equest . 13 

:<-oomniancl . 12 


M-commond . 13 

monitor  SBC . 72 


monitor.  SBC  . 


3.  11.  12.  14.  15,  16.  19.  72.  93 


Multibus  .  2 


90 


F/6  9/2 


AD'AOTS  106  NAVAL  RESEARCH  LAB  HA5HIN6T0N 
THREADER  MICROCOMPUTER  ANTENNA 
SEP  79  L  E  RUSSO 
UNCLASSIFIED  NRL-MR-4067 


DC 

CONTROLLER. (U) 


NL 


THREADER  MICROCOMPUTER  ANTENNA  CONTROLLER 


O-coimand . 13 

paper  iape . 1,  5,  8 

paper  tape. index  conmand  .  .1 

PDP10 . 14 

PDPll . 1,  2,  4.  5,  9,  10,  13,  14,  15, 

.  16,  20,  72,  83 

PL/M . 14,  16,  29,  87 

pointing  data  . . 2 

R-request  . . 13 

record  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .8,9,  11,  12,  13,  14,  15,  16 

remote  mode . 9 

report  buffer  . . 8,  9,  13,  16 

report  file . 8,  9,  11,  16 

request . .  4,  6,  8,  9,  11,  12,  13 

requests  .  .....  13 

RS232  .  1,  2,  3,  4,  5,  15,  19,  20 

SA1943  .  4,  20 

SA1848  .  4,  20,  21,  24 

SBC  108  3,  4,  20,  21 

SBC  519 . 3,  4,  20,  21 

SBC  30/20  3,  4,  5,  19,  20,  21 

SBCOOl . 83 

SBC  108 . 22 

SBC80/20  .  4,  22 

Scientific  Atlanta  .  .  1,  4 

System  80/20  .  3 

T-command . 6,  9,  12 

T-request  .  .  .....  13 

tasK . 3,  9,  15,  16 

ticK . 15,  16,  19 

time  code  reader .  2,  4,  19,  20,  25,  26 

USART . 5,  29 

V-commond . 12 

U-command . 13 


Z-command 


12 


